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I. INTRODUCTION 


Different computer systems have different programming environments in spite of 
their similar capabilities. Some system functions, utilized through programming language 
compilers, work in the environments supported by software production, or by system 
hardware. Although the environments of software development support similar algonthms 
and tools, they usually make software programmers write another program to obtain the 
same result from different computer systems. There is no standard interface for the various 
workstation (SUN, APOLLO, etc.) systems. 


A. PURPOSE OF THESIS 

In this thesis, a common interface for a graphic software environment is 
established to create systematical functions which can be used for two different personal 
computing systems: Apple's Macintosh* and IBM PC series. The most important method 
used here to obtain this common interface 1s the Abstract Specification of data types, also 
named Abstract Data Type, consisting of a set of instances and a set of primitive operations 
which provide the only means for creating and interacting with the instances. The 
advantages of the Abstract Data Type, such as precise specification, modularity, and 
information hiding, can be very helpful for implementing the interfaces easily and with less 
errors. [Ref. 4, p. 18-19] 

The development environment selected here is a graphics based software system that 
Supports both window management and a menu driven style. The system 1s more user 
friendly and it becomes a definite trend toward the development of computer workstation 
Systems because using the visual effects of graphics can generally communicate 
information more effectively than text. Menu displays save people the trouble of 
remembering many complex operation commands. The structure for user friendly system 
is different from the traditional structure of software (see Figure 1). The traditional 
software system is a kind of hierarchical structure that needs top-down approach to 
implement a program. The user friendly system needs a circular polling devices like 
mouse, keyboard, floppy disk drive, etc. 


* Macintosh is a trademark of Apple Computer, Inc. 


B. TOOLS 

The primary development compiler and system language in this thesis is the C 
language. The C language is used primarily because it is easily ported to new systems and 
it allows the user to access his resources directly. For the Macintosh computer, 
LightspeedC™ (by THINK Technologies, Inc.) is used, and LATTICE C™ is used for the 
IBM PC computer with GEM (Graphics Environment Manager) which will be described 


Traditional structure of software Structure for user friendly system 


later. 





Figure 1 Different Structure of Software Systems 


II. PROGRAMMING ENVIRONMENT (User Interface 
Technology) 


The operation and control procedures should be simple for the user to use the 
computer comfortably. A user-friendly system should provide all the information needed 
by the user in a graphics display. These graphic displays are referred to here as desktop. 
On the desktop, the user can slide documents around, organize work in folders, throw 
things away, or obtain new work—simply by moving the mouse and pressing the mouse 
button. The Macintosh Operating System supports such an operating and programming 
environment on Macintosh Computer [Ref. 2], and GEM provides a comparable 
environment for the IBM PC. GEM, developed by Digital Research, Inc.(DRJ), 1s an 
operating environment which is similar to an operating system [Ref. 1]. Whereas an 
Operating system allows the program to utilize console and disk devices in a standard 
manner, the GEM operating environment allows the GEM programmer to control a number 
of graphics devices and develop application interfaces in a consistent and standard fashion 
[Ref. 1]. So, these two environments allow a variety of high-level functions access to 
peripheral graphic devices and whose purpose is to make it easier for the application 
programmer to develop software that 1s both efficient and easy to use. In fact, the 
developed software is very similar to the window-type structure used in Macintosh 
software system, which is rather user-friendly in today's software development. Figure 2 
shows the relationship between the application program, the user, and the computer [Ref. 
1, p 4]. 


The GEM Operating 


Environment 





The GEM Application 
The Operating 
System 
The Computer 


Figure 2 The Role of the GEM Operating Environment 





With the GEM functions, the application program can control many devices 
manipulated by the user including the keyboard, the mouse, the screen, the printer, and the 
plotter [Ref. 1]. GEM is very similar to an operating system in that it allows the user to 
write programs without having to worry about what kind of mouse is attached to the 
computer, what resolution the screen has, or whether the computer's monitor is color or 
monochrome [Ref. 1]. 

Another example of a programming environment is the Operating System and the 
User Interface Toolbox in Macintosh [Ref. 2]. The application program will always call the 
routines which mostly are part of either the Operating System or the User Interface Toolbox 
and in the Macintosh ROM. The Operating System is at the lowest level; it does basic tasks 
such as input and output, memory management, and interrupt handling. The User Interface 


Toolbox is a level above the Operating System; it helps you implement the standard 


Macintosh user interface in the application program [Ref. 3]. The user interface is the most 
important part of the user friendly computer system. In plain English, an interface is a 
junction or boundary where two things meet. In computerese, it refers to the set of rules 
and conventions by which one part of an organized system communicates with another. 
Whenever two components of the system come together, they exchange information by 
way of an interface [Ref. 3]. 

GEM and Macintosh software system both provide an operating environment in 
which the users can utilize all kinds of functions and routines to produce a user-friendly 
application program. Unfortunately, the programmers have to repeat the learning procedure 
and recode the source works if for some reason the application program is needed to run on 
both IBM PC and Macintosh microcomputers. In this thesis, a common interface 1s 
provided for programmers to reduce duplicated efforts and hopefully to get the same effect 
in both operating environments. The relationship between this common interface, the user, 


and the computers is shown in Figure 3. 
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Figure 3 The Role of Common Interface 








I. OVERVIEW OF GEM 


The common interface mentioned last section actually consists of one interface with 
two drivers, one on IBM PC and the other on the Macintosh. It can be extended to any 
Other mini- or microcomputers which provide a similar operating environment and a 
window and menu style structure. Before introducing the details of the common interface, 
the components of the GEM software environment will be described. 

GEM consists of two major functional units: the Application Environment Services 
(AES) and the Virtual Device Interface (VDI); both provide a set of function libraries as a 
graphic interface [Ref. 1]. To build a typical GEM application, the user could implement 
the data fork and resource fork separately: the former basically consists of a set of 
procedures in the language that the program is written; the latter represents the menu bar 
and its associated submenus, form alerts, and dialogs created by another GEM application, 
known as the Resource Construction Set (RCS), which is provided by DRI. The RCS 
allows the programmer to construct the images, dialogs, and alerts that your application 
uses before any application code is written [Ref. 1]. GEM also provides some routines 
which build and deal with resources of application. It is less complicated when some 
important messages need to be modified without changing the application codes. This is a 
very important concept of establishing resources of a program because it saves the 
programmer a considerable amount of time and energy, when making complicated 
programming changes of some graphic structure. Thus, the application program 1s more 
flexible to change. 


A. The Role of AES 

The GEM AES provides routines which can be utilized to build the desktop and are 
organized in Sets of related functions called libraries [Ref. 1]. For example, all the routines 
that manipulate windows are collected and form the Window Library of the AES, and all of 
the event routines form the Event Library, and so on [Ref. 1]. So, the AES represents a set 
of tools which can be useful when writing the first GEM application, the desktop, and in 
developing the common interface. AES includes a limited multitasking kernel, a screen 
Manager, and 11 libraries: Application, Event, Menu, Object, Form, Graphics, File 
Selector, Scrap, Window, Resource, and Shell. The GEM kernel is a limited multitasking 
SyStem in that it can only handle five tasks: three desk accessory programs, one application, 
and the Screen Manager [Ref. 1]. Actually the Screen Manager is an internal task for event 
messages reporting to the AES event function. The GEM AES Event Library provides the 


foundation that governs all user input in a GEM application. These input actions could be 
keyboard interrupts, mouse movement, mouse button changes, timer expiration, and 
messages in which some of them need the application to respond when receiving related 
events [Ref. 1].” 


B. The Role of VDI 

The purpose of the GEM VDI is to allow the user to control many different graphic 
devices with the same functions. The user can use the drawing routines to draw circles 
without considering what kind of output device will be used. This is very important 
because unlike IBM PC, Macintosh has more strict input and output constrains on 
hardware. IBM PC has a huge market share in the world and thousands of manufacturers 
who provide various competitive peripheral devices. Therefore, portability becomes 
indispensable forGEM. The VDI not only has a collection of drawing functions which can 
implement various shapes including points, markers, lines, polylines, graphics text, 
rectangle, and so on, but also control functions which open and close workstations (and 
virtual workstations) [Ref. 1]. 


* The details of all functions of other libraries can be found in the Programmer's Guide To GEM by Balma 
and Fitler (1986). 


IV. OVERVIEW OF MACINTOSH 


The Macintosh personal computer is designed in the way that the user can learn and 
use easily. Its revolutionary user interface distinguishes the Macintosh from other personal 
computers. Since the user interface acts as a good friend, it helps the user to communicate 
with the Macintosh comfortably. Everything on a Macintosh screen is displayed 
graphically; the Macintosh has no text mode. Generally speaking, the function sets are 
more detailed and includes more categories than GEM. All these functions are built into 
every Macintosh in ROM (read-only memory). The ROM can be divided into three parts: 
the Macintosh Operating System, which handles low-level tasks such as memory 
management, disk input/output, and serial communications; the QuickDraw graphics 
routines, which are responsible for everything displayed on the screen; and the User 
Interface Toolbox, which implements the higher-level constructs of the user interface, such 
as windows and menus [Ref. 3, p. 2]. The routines are divided according to function in 
Macintosh and and are called "managers" [Ref. 2, p. I-9]. Figure 4 shows the whole 
function distribution in the Macintosh [Ref. 2, p. I-10]. 
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A Macintosh Hardware 


Figure 4 Overview of Macintosh 


The Macintosh Toolbox also includes the Resource Manager which serves keep the 
data of an application separate from its code, making the data easier to modify and easier to 
share among applications. The Macintosh Resource Manager also supports more resource 
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types and more specified details than GEM. To manage and process the resource 
information, many utilities are available from the public domain [Ref. 2]. 

Before the Macintosh II come out, some routines in QuickDraw also enabled 
applications to do color drawing, including eight different colors, on color output devices. 
All nonwhite colors will appear as black on black-and-white output devices. In Macintosh 
II, more sophisticated color drawing routines are supported with 23 colors. 

Anyone who's used a Macintosh knows all about windows. The application displays 
all the information in the windows to the user, and the user tells the program what to do by 
clicking the mouse or hitting the keyboard. There can be any number of windows on the 
screen, and they can overlap in any order. Two different windows, the application 
window and the system window, both have their own characteristics to perform different 
tasks [Ref. 3]. 

Most of the time, the menu bar appears at the top of the screen, listing the titles of the 
available menus. One of the user's response to the program is to issue a command from an 
menu item under the title. Also, menus can be of various types in Macintosh to behave in 
certain standard ways. General speaking, the Macintosh Operating System and User 
Interface Toolbox provide a more complete function set of facilities for working with the 
User Interface than GEM does with its Operating Evironment [Ref. 3]. For the same 
reason, it is also more complicated. 
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V. DESIGN OF THE COMMON INTERFACE 


Before starting to implementing the common interface, we have to design what 
functions are required to provide the useraccess to the common interface, and we have to 
design common interface functions that both Macintosh and GEM can support. Basically 
the common interface is general purpose and should be extendable. Some special functions 
can be done by several algorithms and we need to think about possible procedures that can 
finish specified task, like window update and redraw, and slao be compatible to different 
computers. Both GEM and Macintosh have detailed functions that may work in different 
ways, but their basic view of the user interface is similar. When we select the common 
portions of the functions, we may reduce function performance, but we also simplify the 
interface. Figure 5 shows the relationship of the Macintosh user interface, the common 
interface, and the GEM operating environment. 
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Figure 5 the relationship of all the interfaces. 


To create the basic user-friendly interface, i.e., providing the complete graphical 
functions, at least four libraries must be built: the menu library, the primitive object library, 
the window library, and the event library. 


A. Design Methodology and Abstract Data Type 

When we decide to build a common interface which can perform graphic functions 
and window style, the most important consideration is the structure of this common 
interface and how to make the common interface easier to use. The structure of the 
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common interface can be divided into four libraries which can be implemented 
independently. Every library groups those functions which are relative to themselves. 
Also in every library, the functions can be futher divided into several subgroups according 
to their tasks. 


Before introducing the details of the libraries, we will discuss the design 
methodology and abstract data types of the common interface. In all of the primitive 
drawing objects, the rectangle acts a very important role in the common interface. When a 
circle, an ellipse, an arc, or a round rectangle are drawn, a rectangle is always needed for 
setting the drawing boundary and calculating the outline of the specified object. In GEM 
and Macintosh, they use different data structures to create a rectangle. GEM uses a top left 
point , a width and a height to specify a rectangle and Macintosh uses two points: a top left 
point and a bottom right point. It sounds tricky for us to decide which data structure is 
better. However, we are not going to worry about the data types of rectangle or point 
when using the concept of Abstract Data Type. We think about a rectangle in an abstract 
way. A rectangle consists of four points connected with four outer lines, and a point 
consists of two coordinate values, a horizontal and a vertical value, but not all the data are 
necessary to create a rectangle on the screen. In using the concept of Abstract Data Type, 
we simply design a set of functions that perform all the operations on a rectangle and 
achieve information hiding of the data structure. The programmer can do whatever he 
wants with a rectangle by utilizing these functions. Several representations, including the 
GEM and Macintosh ones, can be used to represent the rectangle and still support the 
rectangle functions defined in the abstract data type. The functions act like guards or 
interfaces that surround and protect the data structure in the center (see Figure 6). 
Obviously, the different data structures on the Macintosh and GEM are irrelevant. We 
follow the same design methodology of abstraction and information hiding on all the 
functions in the interface. 
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Figure 6 The Data Structure and Functions in Abstract Data Type 


After implementing the design, the programmer won't need to manipulate the point 





and rectangle directly because he can utilize the functions which are provided by the 
common interface to deal with the rectangle or point. However, we still need to select a 
data type. In C, they are defined below: 
typedef struct 
{ 
Int v,h; 
} Point ; 


typedef struct 


{ 
Point topLeft; 
Point botRight; 


} Rect ; 
#define top topLeft.v 
#define left topLeft.h 


#define bottom botRight.v 

#define night botRight.h 
When the programmer wants to write an application program, the organization of the 
program becomes easy by using the concept of the common interface. In fact, the Event 
Library which provides the function that always generates fixed messages, or events, has 
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made the program only need to take care of the events. By notification of these events, the 
program can receive commands from the menu selection or handle the variation of the 
mouse button and movement issued by the user. 

All the necessary definitions used by the common interface are put in the file 
“ASBIND1.H" for both Macintosh and GEM. To make sure that the program runs well, 
the programmer better selects the relative one when compiling the program. Similarly, the 
programmer might have a data type that is similar to the common interface to keep track of 
all the background information. The most obvious example in the DEMO program which 
will be introduced in next chapter, is the usage of the "Winlist' structure which retains all 
the useful information about a window. 


B. Design of the Primitive Object Library 

The Primitive Object Library supports the manipulation of the primitive objects of the 
abstract specification — the Point and the Rectangle. As background, the graphic display 
device is subdivided into discrete areas known as pixels. As far as the graphic device is 
concerned, pixels are the smallest unit of manipulation. Reference to particular pixels on 
the abstract screen are via an imposed coordinate system. The origin or (0, 0) pixel is 
located at the upper left corner of the screen. In the Abstract Specification, there is a one to 
One mapping between points and pixels. A point is defined by specifying its horizontal and 
vertical displacement from the origin of a graphic environment. However, these 
displacements are relative to a particular window environment in which the point is used. 
Rectangles are defined by specifying the top left and bottom right corners of the rectangle 
(see Figure 7) [Ref. 2, p. I-140]. 
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Figure 7 A Rectangle and the Origin 


In the following description of the Primitive Object Library, as well as the other 
libraries, we will explain all functions in the C language style with their parameters. In the 
Primitive Object Library, the whole functions can be classified into three sets: the Point set, 
the Rectangle set, and the Point and Rectangle translation set. 


1. The Point Set 
As mentioned before, a point is specified by two integers which are coordinate 
values. We need enough functions to calculate or transfer the data type about point and 
integer. Some C compilers, because they do not allow passing structs as arguments, 
require the address of the Point to be passed instead. There are five functions in the Point 
set. 
a. Set point by integers 
Given two integers which represent the X and Y coordinate (the horizontal 


and vertical positions of the point respectively), the function returns a point. 


State set_point (x, y, pt) 
Input: Int ey the value of the X and Y coordinate respectively. 
Output: —‘ Point ial 8) the returned point. 


b. Get X coordinate value from point 
Function which returns the horizontal coordinate value of the input point. 
Int ret_val = get_x_coord (pt) 
Input: Point *Dt the given point. 
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Output: 


Int 
Input: 


Output: 


Bool 
Input: 


Output: 


State 
Input: 
Output: 


Int ret_val the X coordinate value. 
Get Y coordinate value from point 
Function which returns the vertical coordinate value of the input point. 
ret_val = get_y_coord (pt) 
Point *pt 
Int ret_val 
Test two equal points 


the given point. 
the Y coordinate value. 


Function which determines if the two input points are the same point. 
ret_val = equalpt (pl, p2) 


Point *p1, *p2_ the two given points. 
Bool ret_val TRUE, if p1 and p2 are the same point. 
FALSE, if not. 
Copy point 


Function which copies the source point into the destination point. 
copypt (source, dest) 
*source 
*dest 


Point the given source point. 


Point the returned destination point. 


2. The Rectangle Set 


Some functions, which pertain to the calculation of two rectangles, belong to 


this category. 
a. 


State 
Input: 
Output: 


b. 


Bool 
Input: 
Output: 


Set intersection of rectangles 


Function which determines the rectangle which is formed by the 


intersection of the two input rectangles. If the intersection is empty, the rectangle returned 
will be defined by a top left and bottom right point of (0, 0). 


Set_insect_rect (rl, r2, rint) 
Rect 
Rect 


*r1, *r2 ‘ithe given two rectangle. 
*rint the returned rectangle of intersection. 
Test intersection of rectangles 
Function which determines whether the two input rectangles intersect. 
ret_val = insect_rect (rl, r2) 
Rect *r1, *r2__—stthe given two rectangle. 
Bool ret_val TRUE, if rl and r2 intersect. FALSE, if not. 


c. Test equal rectangles 
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rectangle. 
Bool 
Input: 
Output: 


State 
Input: 
Output: 


Function which determines if the two input rectangles are the same 


ret_val = equalrect (rl, r2) 

Rect *r1,*r2 the given two rectangle. 

Bool ret_val TRUE, if rl and r2 are the same. FALSE, if not. 
d. Copy rectangles 

Function which copies the source rectangle into the destination rectangle. 
copypt (source, dest) 

Rect *source _ the given source rectangle. 

Rect *dest the returned destination rectangle. 


3. The Point and Rectangle Translation Set 


A rectangle is specified by two points. We need the Point and the Rectangle 


have enough operations to cover the information exchange. For example, type transfer 


from points to the rectangle or from the rectangle to the points. 


a. 


Set rectangle by points 


Function which, given two points, determines the smallest rectangle that 


those points could define and sets the top left and bottom nght points of the output 


rectangle to correspond to that rectangle. 


State 
Input: 


Output: 
b. 


State 
Input: 


Output: 
es 


State 
Input: 


Output: 


Set_Tect (ple Zan) 
Point *p1, *p2__ the given two points. 
Rect Ae the returned rectangle. 


Get the top left point from rectangle 


Function which returns the top left point of the input rectangle. 
set_topLeft (r, p) 

Rect of, the given rectangle. 

Point a the returned top left point. 


Get the bottom right point from rectangle 


Function which returns the bottom nght point of the input rectangle. 
set_botRight (r, p) 

Rect | the given rectangle. 

Point 20 the returned bottom right point. 


d. Test point in rectangle 


Function which determines if the input point is within or on the border of 


the input rectangle. 
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Bool ret_val = pt_in_rect (p, r) 
Input: Point *D the given point. 
Rect i the given rectangle. 
Output: —_ Bool ret_val TRUE, if point pin rectangle r. FALSE, if not. 


C. Design of the Event Library 
Whenever the user presses the mouse button, or types on the keyboard, the 
application program is notified by means of an event. In the Abstract Specification, all 
events represent the user's actions. Not only the user can generate an event, also the event 
Can generate another event. For instance, when the user drags a window away, the 
uncovered original region may need to be updated, and a redraw event is issued by the 
program. In Macintosh, more complicated events are also provided like disk-inserted 
event, network event, and device driver event, but there are only fundamental events in 
GEM. There are eight events that are summarized for the event function to meet the basic 
interface requirement. Two other mouse functions which relate to events are also included 
in the Event Library. 
1. Get event function 
Function which senses user interaction with the program, determines the type of 
interaction, and reports the user interaction to the program via the message globe data item. 
At present there are eight different types of events which are reported to the program: 
a. Activate event 
A notification that the user pressed the mouse button while the cursor was 
Over an inactive window (requesting) to make that window active, and the application has 
to reorder the windows. 
b. Redraw event 
A notification that the work area of one of the windows present on the 
screen has been disturbed or exposed and must be rewritten. 
c. Close window event 
A notification that the user has pressed the mouse in the close box of the 
active window (if present). 
d. Mouse down event 
A notification that the user has pressed the mouse button in the working 
area of the active window. 
e. Keyboard event 
A notification that the user has typed the keyboard. 
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f. Mouse up event 
A notification that the user has released the mouse. 
g. Menu selection event 
A notification that the user has selected a menu item. 
h. Scroll bar event 
A notification that the user has pressed the mouse in some part of the 
scroll bar. 
Two functions are taken care of automatically by this routine : changing the size 
of a window in response to the user dragging in the window's grow box and moving a 
window in response to a user dragging in the utle bar of the window. 
State get_event () 
Input: none. 
Output: 11 messages, in the following, are declared in "ASBIND1.H" file. 
¢ EVTTYPE: always has a value to represent an event. There are 8 kinds of 
events that their program codes are shown below. The coming event always appends some 
relative and useful information, also shown behind the event, which can tell the 
programmer more details about the event. 
- REDRAW with EVTWINDOW, EVTRECT. 
- TOPPED with EVTWINDOW, ENTPOINT, EVTMOD. 
- CLOSEWIN with none. 
- SCROLLBAR with EVTSCRPART, EVTSCRMOVE, EVTSCRPOSN. 
- MOUSEDOWN with EVTWINDOW, EVTPOINT, EVTMOD. 
- KEYBOARD with EVTKEY, EVTMOD. 
- MOUSEUP with EVTWINDOW, EVTPOINT, EVTMOD. 
- MENUHIT with EVTMTITLE, EVTMITEM. 
¢ EVT WINDOW: the returned window ID. 
¢ EVTRECT: the rectangular area that needs redrawn. 
¢ EVTPOINT: the cursor position when the event happened. 
¢ EVTSCRPART: the scroll bar position report which the possible value is 
V_PAGEUP, V_PAGEDOWN, V_ROWUP, V_ROWDOWN, 
H_PAGEUP, H_PAGEDOWN, H_ROWUP, H_ROWDOWN, 
V_THUMB, H_THUMB. 
¢ EVTSCRPOSN: the scroll bar current setting. The minimam value of any 


scroll bar is zero, and the maximam one is 1000. 
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¢ EVTSCRMOVE: the difference that current setting minus the old one. 
¢ EVTKEY: the input ASCII code. 
¢ EVTMOD: the states of the modifier keys. 
¢ EVITMTITLE: the selected menu ttle. 
¢ EVTMITEM: the selected menu item. 
2. Get mouse location 
This function gets the current mouse position and outputs it in the local 
coordinate system of the specified window. 
State get_mouse(Id, pt) 
Input: Int Id the given window ID. 
Output Point *pt the returned point of the mouse position. 
3. Test mouse button 
This is the function we use to get the state of the mouse up or down. It's useful 


when the user presses and moves the mouse as an action. 


Bool ret_val = mouse_up() 
Input: none. 
Output: Bool ret_val FALSE, if mouse button is pressed. 


TRUE, if not. 


E. Design of the Window Library 
1. The Structure of Window 
In the Abstract Specification, all objects (points, rectangles, etc) are defined in 
relation to the window which happens to be active at the time. The window, as an object 
consists of two basic regions, a structure region and a content region. The structure region 
contains the following objects (see Figure 7 about window structure): 
a. Title bar 
Bar at the top of the window containing the window's title. 
b. Move area 
Lined area of the title bar which can be clicked in to move the window. 
Normally the move area is the same as the title bar area. 
c. Close box 
White rectangle which when clicked in, signals that the user desires to 
close the window. 
d. Scroll bar: 
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Bars on the right and bottom of the window, used to signal the user's 
desire to move the window's contents up, down or side to Side. 
e. Grow box: 
Area at bottom nght of window, which when clicked and dragged around, 


changes the size of the window. 


Close Box 





Untitled-1 == = Title Bar 


scroll Box 


Grow Box 


Scroll Box 


Figure 8 An active window 


The remaining portion in the center of the window is the content region. This 
region can be thought of as an independent screen with its own local coordinate system 
whose origin (0,0) is at the top left corner of the content region. The basic system 
window, the desktop, is slightly different, having only a menu bar area at the top and then 
its content region. At any one time, there is a window which 1s "on top’ of the screen. 
This window is the active window. All drawing activities take place in the active window 
except in the case of an update, in which case it takes place in the window specified. 

All windows once allocated are managed by the window ID number which is 
assigned at the time of creation. To prevent out of memory errors, the maximum number 
of available windows is eight. In general, the programmer has to keep the ID information 


while manipulating multiple windows. 
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2. The Window Function Set 
All functions used to manipulate windows and other relative objects, can be 
divided into six parts. 


a. 


entity. 


Window Manipulation 


There are several basic functions here to manipulate windows as a whole 


i. Create a new window 


Function which allocates space for a new window and displays it as 


the active window. The programmer can create new windows with different optional 


properties such as vertical and horizontal scroll bars, close box, grow box, etc. 


Window_id ret_val = set_new_window (InitRect, Partspec, Title, is_ Visible) 


Input: 


Rect *InitRect a rectangle, given in global coordinates, determines 


the window's size and location. 


Bitl6 Partspec specifies which optional parts of the window are to 


be included (see below). 

Parts (optional): defined in "ASBIND1.H" file. 
W_NAME include a title bar; 
W_CLOSE include a close box; 
W_SIZE include a size box; 
W_HSCROLL include a horizontal scroll bar; 
W_VSCROLL include a vertical scroll bar. 


(To include more than one option, pass a bitwise OR of any combination of above) 


Output: 


Char Title address of string to be used as a title for the 
window. 

Bool is_ Visible TRUE, if the window is to be displayed; 
FALSE, if not. 

Window_id ret_val the identifier of the new window. 


ii. Show window 


Function which draws an invisible but previously defined window 


onto the screen. This window becomes the active window. 


State 
Input: 
Output 


show_window (Id) 
Window_.id Id the given window identifier. 
none. 


lili, Hide window 


ZS 


Function which removes the specified window from the screen 


without deallocating it. 


State 
Input: 
Output 


hide_window (Id) 

Window_id Id the given window identifier. 
none. 

iv. Activate window 


Function which causes the specified window to become the active 


window. It causes any window (but the desktop with a ID number of 0) to be moved to the 


top and a new background will be drawn in, however, the contents will not be 


automatically redrawn. 

State activate_win (Id) 

Input: Window_id Id the given window identifier. 

Output none. 

v. Close window 
Function which closes and permanently deallocates the specified 

window. 

State close_window (Id) 

Input: Window_id Id the given window identifier. 

Output none. 


vi. Update window 
Function which sets the system into the update window mode, 


drawing will be limited to the visible region of the window to be updated (as identified by 


the ID number input) to the function. When given a rectangular area to update, the function 


will return the intersection between that area and one of the rectangles which define the 


visible area of the wondow to be updated. In the Macintosh, the update event happens 
window by window (in front to back order). In GEM, when a REDRAW event is issued, 


a rectangle list, divided from the screen and window, is built for the program to update. 


Thus, the programmer always needs to pass the EVTRECT to this function. 


Bool 
Input 


Output: 


rec_val = update_win (ID, Up_rct, Dr_rct) 


Window_.id ID the ID of the window that will be updated. 
Rect *Up_rct the rectangle to be updated. 
Rect *Dr_rect the intersection of update rectangle and 


visible region. 
Bool ret_val TRUE, if need updat. FALSE, if not. 
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vil. Update next window 
To solve the update problem of GEM and Macintosh, this function 
moderates the conceptual difference between two computers and completes the update 
mission without having much redundant work. In Macintosh, this function does nothing 
and always returns false. But, it is still useful for GEM. 


Bool rec_val = next_update (Up_rct, Dr_rct) 

Input Rect *Up_rct the rectangle to be updated. 

Output: Rect *Dr_rect the intersection of update rectangle and visible 
region. 


Bool Tret_val TRUE, if next update 1s necessary; 
FALSE, if not. 
vill. End updating window 
Function to ends the update mode and restore the clip area to match 
the active (topmost) window. The programmer always has to call update_win() when 
receiving a REDRAW event, and call end_update() at the end of update. 
State end_update () 
Input: none. 
Output: none. 
Ix. Find active window 
Function which shows the identifier of the active window. 
Window_id ret_val = get_active() 
Input: none. 
Output Window_id ret_val the returned window ID. 
b. Scroll Bar Manipulation 
In fact, scroll bar is part of control facilities of a window to adjust the 
viewing position of the document of the window. The scroll bar is divided into five parts 
to perform different functions. The up and down arrows scroll the window's content a line 
at atime. The paging up and down regions scroll a page at a time. The thumb can be 
dragged to any position in the scroll bar, to scroll to a corresponding position within the 
document (see Figure 9) [Ref. 2]. Six functions are shown below. 
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Figure 9 Parts of a scroll bar 


i. Horizontal content scrolling 
Function which scrolls the content area of the active window by the 
specified number of pixels. If the number is positive, the region will move to the left, and 
to the right if negative. The returned rectangle, which was previously covered, will show 


up now and should be passed for update. 


State hscroll (num, Up_rect) 
Input: Int num the pixel number to scroll 
Output Rect *Up_rect return the rectangle which will be updated 


il. Vertical content scrolling 
Function which scrolls the content area of the active window by the 
specified number of pixels. If the number is positive, the region will move up, and down 
if negative. The returned rectangle, which was previously covered, will show up now and 
should be passed for update. 


State vscroll (num, Up_rect) 
Input: Int num the pixel number to scroll 
Output Rect *Up_rect return the rectangle which will be updated 


iii, Set horizontal scroll bar value 
Function which sets the value of the horizontal scroll bar of the 
active window. 
State set_hscroll (val) 
Input: Int val new horizontal scroll bar setting. 
Output: none. 
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iv. Set vertical scroll bar value 


Function which sets the value of the vertical scroll bar of the active 


window. 
State set_vscroll (val) 
Input: Int val new vertical scroll bar setting. 
Output: —snone. 
v. Get horizontal scroll bar value 
Function which returns the horizontal scroll bar value. 
Int ret_val = get_hscroll () 
Input: none. 
Output: Int ret_val the returned horizontal scroll bar value. 
vi. Get horizontal scroll bar value 
Function which returns the horizontal scroll bar value. 
Int ret_val = get_vscroll () 
Input: none. 
Output: Int ret_val the returned vertical scroll! bar value. 


c. Drawing Background Manipulation 
Abstraction Specification of graphic objects has three different kinds of 
characteristic: background pattern, mode, and color. Pattern includes black, dark gray, 
gray, light gray, and white. Mode includes replace, transparent, xor, and reverse 
transparent. Color includes light and dark which both include white, black, red, green, 


blue, cyan, yellow, and magenta. 


1. Set pattern 
Function which sets the pattern to be used to draw and fill in shape. 


State set_pattern (newpattern) 
Input: Pattern_id newpattern the given pattern ID. 
Output: —_—none. 

li. Set mode 

Function which sets the global mode for drawing onto the screen. 

State set_xfer_mode (newmode) 
Input: Pattern_id newmode the given transfer mode ID. 
Output: —snone. 


iit. Set color 
Function which sets the global color for drawing. 
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State set_color (newcolor) 
Input: Color_id newcolor the given color ID. 
Output: —snone. 
iv. Get pattern 
Function which retuens the identifier of the drawing pattern. 
Pattern_id ret_val = get_pattern () 
Input: none. 
Output: — Pattern_id ret_val the returned pattern ID. 
v. Get mode 
Function which retuens the identifier of the drawing transfer mode. 
Mode_id_ret_val = get_xfer_mode () 
Input: none. 
Output: Mode_id ret_val the returned transfer mode ID. 
vi. Get color 
Function which retuens the identifier of the drawing color. 
Color_id ret_val = get_color () 
Input: none. 
Output: Color_id  ret_val the returned color ID. 
d. Drawing Object Manipulation 
Drawing functions are the most important part of the Abstract 
Specification. The reason we put this function in the Window Library is all object drawing 
routines happen in a window. All of the drawing happens in the active window with the 
current setting of pen mode, pen pattern, and color. The coordinates of the input point or 
rectangle are assumed to be relative to the top left corner of the active window's work area. 
There are five kinds of object supported in the Abstract Specification : line, rectangle, 
ellipse, arc and round rectangle. 
i. Draw a line 
Function which draws a line in the currently active window. 
State drawline (St_pt, End_pt) 
Input: Point *St_pt the starting point. 
Point *End_pt the ending point. 
Output: none. 


ll. Draw a rectangle 
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Function which draws the outline of a rectangle in the active 


window. 
State drawrect (In_rect) 
Input: Rect *In_rect the given rectangle. 
Output: none. 


iil. Draw an ellipse 
Function which draws the outline of an ellipse within the specified 
rectangular area of the active window. 
State drawellipse (In_rect) 
Input: Rect *In_ rect the given rectangle. 
Output: none. 
iv. Draw an arc 
Function which draws the outline of an elliptical arc between the two 
input angles within the specified rectangular area of the active window. 
State drawarc (R, begang, endang) 


Input: Rect *R the given rectangle. 
Int begang __ the Starting angle. 
Int endang __ the ending angle. 


Output: _—snone. 
v. Draw a round rectangle 
Function which draws the outline of an round rectangle within the 
specified rectangular area of the active window. 
State drawrndrct (In_rect) 
Input: Rect *In_ rect the given rectangle. 
Output: _—snone. 
vi. Fill a rectangle 
Function which fills the outline of a rectangle in the active window. 
State fillrect (In_rect) 
Input: Rect *In_rect the given rectangle. 
Output: —_—none. 
vil. Fill an ellipse 
Function which fills the outline of an ellipse within the specified 
rectangular area of the active window. 
State fillellipse (In_rect) 
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Input: Rect *In_rect the given rectangle. 
Output: _—snone. 
vill, Fill an arc 
Function which fills the outline of an elliptical arc between the two 
input angles within the specified rectangular area of the active window. 
State fillarc (R, begang, endang) 


Input: Rect *R the given rectangle. 
Int begang the starting angle. 
Int endang __ the ending angle. 


Output: none. 
ix. Fill a round rectangle 
Function which fills the outline of an round rectangle within the 
specified rectangular area of the active window. 
State fillrndrct (In_rect) 
Input: Rect *In_ rect the given rectangle. 
Output: —_ none. 
e. Text Manipulation 
In the Abstract Specification, only a few functions are available for the 
basic manipulation of text. 
i. Set text pen position 
Function which sets the location of the next character to be drawn in 
the active window (location of text pen in window local coordinates). 
State txtpen (inpt) 
Input: Point *inpt the given text location. 
Output: none. 
li. Get text pen position 
Function which returns the location of the text pen for the currently 
active window (in window local coordinates). 
State set_txtpen (pen) 
Input: none. 
Output: =‘ Point *pen the returned text location. 
ili. Write string 
Function which draws a String into the active window at the current 


location of its text pen. 


30 


State drawstring (strptr) 
Input: Char *strptr the string which will be drawn. 
Output: none. 
iv. Write character 
Function which draws a character at the current location of the active 


window's text pen. 


State drawstring (inchr) 
Input: Char inchr the character which will be drawn. 
Output: _—none. 


v. Get character width 
Functions return the current character width. 


Int ret_val = get_wchar () 
Input: none. 
Output Int ret_val the character width. 


vi. Get character height 


Functions return the current character height. 


Int ret_val = get_hchar () 
Input: none. 
Output _—iInt Tet_val the character height. 


f. System Manipulation 
The programmer needs to call sys_init() and sys_endQ), which will be 
described below, at the beginning and end of the program respectively. 
i. System initialization 
Function to initialize the system to run the Abstract Specification 


Interface. 

State sys_init () 

Input: none. 

Output: none. 

li, Exit application program 
Function which returns all allocated resources to the system at the 

end of the program. 

State sys_end () 

Input: none. 

Output: none. 
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E. Design of the Menu Library 

Menu Selection is a method used to issue a command to the application program. 
This is one of the most important and user-friendly characteristics of the common 
interface, the user just moves and clicks the mouse around the screen to control the 
application program without typing the keyboard. GEM menus are known as drop-down 
menus because when the user moves the mouse over the menu bar, the GEM Screen 
Manager drops the entire menu down onto the screen. In contrast, the Macintosh uses 
pull-down menus, which work by having the user click on the desired menu title, and, 
holding the button down, move through the menu highlighting each pointed-at item. By 
releasing the button the user selects the last highlighted item. Thus, on the Macintosh, the 
menu is displayed as long as the button remains depressed, whereas GEM menus are 
visible until the user moves the mouse out of the menu, either into another menu or to 
another part of a screen. GEM menus are also different in that the mouse button is used to 
select a menu item. As shown in Figure 10, the application highlights the title and 
displays the menu items [Ref. 2, p. I-52]. 
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Figure 10 Menu 
The GEM Menu Library only provides the fundamental functions required, but the 
Macintosh Menu Manager includes the complete works of the menu functions. To collect 
the necessary set, there are five basic menu routines that are chosen for performing menu 
functions. 
I. Menu bar initialization 
This function always has to be called by the programmer at the beginning of the 
application to show the menu bar. Here we need the resource file name prepared in 


advance. So before passing the resource file name to this function, the programmer must 
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utilizes the respective resource maker utility program supported from DRI and Apple 
Computer, Inc., to edit the menu resource for the application program” . 


State init_menu (filename, barid) 
Input: char *filename the resource file name 

Menu_id _ barid the menu ID specified by resource utility. 
Output: none. 


2. Menu item enable 
To make sure the user can issue the proper commands, the application program 
may only allow certain commands to be selectable. This function corresponds to the menu 
item disable which will be mentioned next. 


State item_enble (menunum, itemnum) 
Input: Int menunum the menu title number 
Int itemnum the menu item number 


Output: none. 
3. Menu item disable 
In some specified situation, some unacceptable or unnecessary commands must 
be disabled. A disabled item cannot be chosen; it appears dimmed in the menu and is not 
highlighted when the cursor moves over it. You can change the enabled or disabled state of 
a menu item with this and the last function. 


State item_disable (menunum, itemnum) 

Input: Int menunum the menu title number 
Int itemnum the menu item number 

Output: _—none. 


4. Set menu item check mark 

The programmer can place a check mark to the left of the text of the menu item. This 
action can Clearly tell the user which command is working or what state is presenting. With 
this function, the programmer can set or clear the check mark. 


State item_mark (menunum, itemnum, mark) 
Input: Int menunum the menu title number 
Int itemnum the menu item number 


* There are several utilities available, include RMaker, ResTool, and ResEdit, for the Macintosh computer. 
Also, GEM has the Resource Construction Set supported by DRI for the same purpose. 
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Bool mark if TRUE, then a check mark will appear each 
subsequent time the menu is pulled down. If 
FALSE, then remove the check mark from 
the menu item. 
Output: none. 
5. Menu title highlighting 
When an item is selected, the menu title in the menu bar remains highlighted 
until the command has completed execution. So after the menu is selected, the application 
should perform the chosen task and then call this function to unhighlight the chosen menu 
title. The programmer can also use this function to highlight the menu title. Since only one 
menu title can be highlighted at a time, it unhighlights any previously highlighted menu 
title. 


State menu_hilight (menunum, hilight) 
Input: Int menunum the menu title number 
Bool hilight if TRUE, then hilight the title of given menu. 


If FALSE, unhilight the chosen menu title. 
Output: none. 
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VI. IMPLEMENTATION 


In this section we will discuss some details of implementing the common interface 
and the testing of a demonstration program. This mini interface actually provided only 
basic functions for building an application program. To fully utilize the available functions, 
we have to introduce all the other necessary features and properties of the programming 
environment. First, we will examine the designing of the data structures, then all the 
functional abilities of these libraries. In the view of a design task, the design of the data 
Structures should be put last . But the whole design is actually digested in the GEM and 
Macintosh programming environments to get a feasible intersection. So, here we just use 
the data structure to establish the direction of the implementation work. 

There are several special data structures and defined constant data which were 
designed for the Event and Window Library to be utilized by the programmer. The 
following descriptions show some detail notes about the Abstract Specification of 


implementation: 


The window type and limitation 

—The maximum number that an application can open at a time is limited under 
seven to prevent out of memory. Because we have to control our own window 
by the data structure which summarized from the GEM and Macintosh, and 
specify the number of windows during the compile time. 

—Every window has its own identifier instead of a window pointer to its location. 

—The scroll bar is regarded as part of the window structure. The thumb value is 
between zero and 1000. 

—The Desktop on the screen has the window identifier value zero. When an 
invalid window happens in any function its identifier value is -1. 

—A newly created window has options to include title, close box, grow box, the 
horizontal and/or vertical scroll bar. 


The event structure 

—the notification of of a event is always accompanied by different information 
which depends on the event. A keyboard event comes with the key stroke and 
the state of the modifier keys. Menu selection events come with the selected 
menu title and item. Redraw event comes with the window and rectangle which 


needs redrawn. Mouse down event comes with the mouse down window, 
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cursor point, and the state of modifier keys. Update, close window event comes 
with the window where the event happened. Scroll bar event comes with the 
specified part of scroll bar, and the new thumb position. 

—all events are enqueued into an internal first in first out data structure. 

—all windows can always be dragged or sized, but the actions might generate 
redraw events depending on whether the hidden parts of inactive window 


appear. 


The graphic object structure 

—the graphic objects can be line, rectangle, ellipse, arc and round rectangle. 
Except line object, the other objects can be drawn either outline only or with 
pattern in. 

——the background of all objects include color, pattern, and mode that they all can be 
represented by the specified identifier value. 


The basic structure of a standard program 

—the DEMO program shown in appendix has a basic structure and it can be a good 
reference for the programmer. Normally, the programmer takes responsibility of 
the content of the include file and resource file for the apllication. 

—the programmer should always include the "ASBIND.H" and "ASFBIND.H" 
files. The ASBIND.H comprises the binding data type of Abstract Specification, 
the ASFBIND.H includes all the binding functions call of Abstract Specification. 

--the following flow chart shows the basic style of an application. 
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Figure 11 The Basic Structure of an Application Program 


For the purpose of understanding how this Abstract Specification of the common 
interface will work, there is a demo program in appendix illustrating the basic graphic 
application and how those functions can be applied by the user. 
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VII. CONCLUSION AND RECOMMENDATION 


In the beginning of this paper we mentioned that the purpose of this common 
interface is to make the same source code run on an IBM PC under the GEM environment 
and the Apple Macintosh with the same effect. This idea could be used to improve the 
portability of many applications since the application could be separated into system 
dependent and system independent (common interface) routines. We have achieved this 
purpose since the source code that uses the common interface of either system is 
independent. When the programmer want to run the same result on other different 
machines, he can just rewrite the system dependent part. In this thesis, we just prove that 
it is possible to support the common interface (system dependent part) to the programmer 
and save duplicated works. Clearly only one drawing demo program cannot prove that the 
common interface will work correctly when further used in other more sophisticated 
application program, but it does prove the feasibility of the idea. Of course, in the 
intersection of the GEM and Macintosh we lose some of their origional powerful abilities, 
but if the system dependent part of an application can expand and provide other functions, 
then the concept of the common interface could be an important idea. 

For further study, we recommend that this idea be examined on other systems. For 
example, can the same abstract design be implemented on top of X-Windows on Unix, or 
MS Windows on MS-DOS? Such an effort would lead to a better understanding of this 
type of interface. 
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APPENDIX A 


Demo program listing 


/* i py pe Et, i PT ea * / 
a DEMO.C = 
ie SI reaver 22 a sa ee Da Pd * / 
#include “asbind.h" 
#include "asfbind.h" 
#include “demo.h" 
#define SINGSCR 20 
#define PAGES 4 
#define COLPAGE 20 
#define NUMDR 100 
char *Titlh[MAXNUMWIN] = begin 
"DrawWindowl1", 
"Draw Window2", 
"Draw Window3", 
"DrawWindow4", 
"Draw WindowS", 
“Draw Window6", 
"DrawWindow7", 
end; 
typedef Struct drstr 
begin 
Rect drrct; 
Color_id drcol; 
Mode_id drmo; 
Pattern_id drpat; 
int drshp; 
Bool drfill; 
end drstr; 
typedef Struct winstr 
begin 
Window_id ~~ winid; 
drstr Drawn{[NUMDR]; 
Int drawcnt; 
Color_id wincol; 
Mode_id winmode; 
Pattern_id winpat; 
Bool doline; 
Bool dofill; 
Bool dodark; 
Int selPat; 
Int selCol; 
Int selMod; 
Int Shape; 
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Bool Created; 
Bool Visible; 
end ~~ winstr; 


Point Bie 
Rect winrect; 
winstr Winlistt MAXNUMWIN]; 
Int Lastactive; 
Ves eee oe Se oe ee eee eee * / 
= em ew i eS ee ee ee * y) 
Int 
Findindex(Id) 


Window_id_=_Id; 


begin 
Int I; 


if (Id == DESK_WIN) 
retun(INVALID); 


for(I = 0; (I< MAXNUMWIN) && (Winlist[I].winid != Id)); I++); 


return(I); 
end 
/* ee ee ee Ee a ne eS ee ee ee 7 | 
/* es es a ee ce em ee ee ect a * | 
Void 
ResetMenus(oldind,Index) 
Int oldind; 
Int Index; 
begin 
if (oldind == INVALID) 


oldind = Lastactive; 


/* handle drawing menu */ 


if (Winlist[{Index].dofill != Winlist{oldind].dofill) 
begin 
if (Winlist[oldind].dofill) 
begin 
item_mark(MNDRAW,ITOUTLN,TRUE); 
item_mark(MNDRAW, ITFILL,FALSE); 
end 
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else 
begin 
item_mark(MNDRAW,ITOUTLN,FALSE); 
item_mark(MNDRAW,ITFILL,TRUE); 
end 


end 


item_mark(MNDRAW, Winlist[oldind].Shape,FALSE); 
item_mark(MNDRAW, Winlist[Index}.Shape, TRUE); 


if (Winlist{Index]}.doline != Winlist[oldind].doline) 
oo 


if (Winlist[oldind].doline) 

begin 
item_enable(bMNDRAW,ITOUTLN); 
item_enable(MNDRAW,ITFILL); 
item_enable(MNDRAW,ITRECT); 
item_enable(MNDRAW,ITELLIP); 
item_enablee¢MNDRAW,ITARC90); 
item_enable(MNDRAW,ITARCI180); 
item_enable7¢MNDRAW,ITARC270); 
item_enable(MNDRAW,ITRNDRCT); 
item_mark(MNDRAW,ITSHAPE,TRUE); 
item_mark(MNDRAW,ITLINE,FALSE); 

end 


else 

begin 
item_disable~CbMNDRAW,ITOUTLN); 
item_disableeMNDRAW,ITFILL); 
item_disableMNDRAW,ITRECT); 
item_disableeMNDRAW,ITELLIP); 
item_disableeMNDRAW,ITARC90); 
item_disableeMNDRAW,ITARC180); 
item_disableeMNDRAW,ITARC270); 
item_disableeMNDRAW,ITRNDRCT); 
item_mark(MNDRAW,ITSHAPE,FALSE); 
item_mark(MNDRAW,ITLINE,TRUE); 

end 


end 
/* handle mode menu */ 


item_mark(MNMODE, Winlist[oldind}.selMod,FALSE); 
item_mark(MNMODE, Winlist[Index}.selMod, TRUE); 


/* handle color menu */ 
if (Winlist{Index}.dodark != Winlist{oldind}.dodark) 
begin 
if (Winlist[oldind]}.dodark) 
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begin 
item_mark(MNCOLOR, ITLIGHT,TRUE); 
item_mark(MNCOLOR,ITDARK,FALSE); 


end 
else 
begin 
item_mark(MNCOLOR,ITDARK,TRUE); 
item_mark({MNCOLOR, ITLIGHT,FALSE); 
end 


end 


item_mark(MNCOLOR, Winlist[oldind].selCol, FALSE); 
item_mark(MNCOLOR, Winlist[Index].selCol, TRUE); 


item_mark(MNPATTRN, Winlist[oldind].selPat, FALSE); 
item_mark(MNPATTRN, Winlist[Index].selPat, TRUE); 


end 
/* www mw we ee a ee be ee * / 
hag ee is es oy! 


DoScroll(part,newposn,amtmove) 


int part,newposn,amtmove; 

begin 
int numscr,oldh,oldv,newh,newv,pixperscr; 
Rect uprect; 


Window_id = Active; 


Active = get_active(); 
numscr = 1; 
pixperscr = (SINGSCR * PAGES * COLPAGE) / MAXSCR; 


Switch (part) 
begin 


case HLPAGEDOWN: 
numscr = COLPAGE; 


case HLROWDOWN: 

begin 
numscr *= SINGSCR; 
newh = numscr / pixperscr; 
oldh = get_hscrollQ); 
newh += oldh; 


if (newh > MAXSCR) 
begin 
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end; 


newh = MAXSCR; 
numscr = (newh - oldh) * pixperscr; 
end 


hscroll(numscr,&uprect); 
set_hscroll(newh); 
DoUpdate(Actve,&uprect); 
break; 


case H_PAGEUP: 


numscr = COLPAGE; 


case H ROWUP: 


begin 


end; 


numscr *= (- SINGSCR); 
newh = numscr / pixperscr; 
oldh = get_hscrollQ); 

newh += oldh; 


if (newh < 0) 
begin 

newh = 0; 

numscr = (newh - oldh) * pixperscr; 
end 


hscroll(numscr,&uprect); 
set_hscroll(newh); 
DoUpdate(Active,&uprect); 
break; 


case V PAGEDOWN: 


numscr = COLPAGE; 


case V ROWDOWN: 


begin 


end; 


numscr *= SINGSCR; 
newv = numscr / pixperscr; 
oldv = get_vscrollQ); 

newv += oldv; 


if (newv > MAXSCR) 
begin 

newv = MAXSCR; 

numscr = (newv - oldv) * pixperscr; 
end 


vscroll(numscr,&uprect); 
set_vscroll(newv); 
DoUpdate(Active,&uprect); 
br ° 


9 
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case V_PAGEUP: 


numscr = COLPAGE; 


case V_ROWUP: 


begin 


numscr *= (- SINGSCR); 
newv = numscr / pixperscr; 
oldv = get_vscrollQ); 

newv += oldv; 


if (newv < Q) 
begin 

newv = 0; 

numscr = (newv - oldv) * pixperscr; 
end 


vscroll(numscr,&uprect); 
set_vscroll(newv); 
DoUpdate(Active,&uprect); 


break; 
end; 
case H_-THUMB: 
begin 
numscr = pixperscr * amtmove; 
hscroll(numscr,&uprect); 
set_hscroll(newposn); 
DoUpdate(Active,&uprect); 
break; 
end; 
case V_THUMB: 
begin 
numscr = pixperscr * amtmove; 
vscroll(numscr,&uprect); 
set_vscroll(newposn); 
DoUpdate(Active,&uprect); 
break; 
end; 
default: break; 
end 
end 
/* es spa nes ese ed EB ale a ee ae 5 / 
Yh a eee eee ee ewe eee et * / 
DoUpdate(Id,uprect) 


Window_id Id; 


Rect 
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begin 


Bool Flag; 

Rect Dummy; 
int le 

int tmpshape; 
Bool tmpdofill; 
Int Winindex; 


Window_id = tmpActive; 


Winindex = Findindex(Id); 


Flag = update_win(Id,uprect,& Dummy); 
tmpshape = Winlist{Winindex].Shape; 
tmpdofill = Winlist{ Winindex].dofill; 


while (Flag) 
begin 


for(l = 0;I < Winlist{Winindex].drawent;I++) 
begin 
Winlist[ Winindex].dofill = 
Winlist{Winindex].Drawn[I].drfill; 
Winlist[ Winindex].Shape = 
Winlist[ Winindex}].Drawn[I].drshp; 
set_xfer_mode(Winlist[ Winindex].Drawn[I].drmo); 
set_pattern(Winlist[Winindex].Drawn[I].drpat); 
set_color(Winlist{Winindex].Drawn[I].drcol); 
DrawShape(&(Winlist{Winindex].Drawn[J].drrct)); 
end 


Flag = next_update(uprect,& Dummy); 
end 


Winlist{Winindex].dofill = tmpdofill; 
Winlist[ Winindex].Shape = tmpshape; 
set_xfer_mode(Winlist[ Winindex].winmode); 
set_pattern(Winlist{Winindex].winpat); 
set_color(Winlist[ Winindex].wincol); 


end_update(); 


end 
/* Ieee ee oe eeecudnnmecemeeeeeee * / 
OF ee */ 
DrawShape(rct) 

Rect *rct; 
begin 

Int Index; 
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Window_id Active; 


Active = get_active(); 
Index = Findindex(Active); 


if (Winlist[Index].dofill) 

begin 
switch (Winlist[Index].Shape) 
begin 


case ITRECT: 

cate 
fillrect(rct); 
break; 

end; 


case ITELLIP: 

begin 
fillellipse(rct); 
break; 

end; 


case ITARC90: 

begin 
fillarc(rct,0,900); 
break; 

end; 


case ITARCI180: 


fillarc(rct,0,1800); 
break; 
end; 


case ITARC270: 

begin 
fillarc(rct,0,2700); 
break; 

end; 


case ITRNDRCT: 
begin 
fillrndrct(rct); 
break; 
end; 
default: break; 
end 
end 
else 


begin 
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switch (Winlist[Index].Shape) 
begin 


case ITRECT: 
begin 
drawrect(rct); 


? 


end; 


case ITELLIP: 

begin 
drawellipse(rct); 
break; 

end; 


case ITARC90: 

begin 
drawarc(rct,0,900); 
break; 

end; 


case ITARC180: 


drawarc(rct,0, 1800); 
break; 
end; 


case ITARC270: 

begin 
drawarc(rct,0,2700); 
break; 

end; 

case ITRNDRCT: 

begin 
drawrndrct(rct); 
Break: 

end; 

default: break; 

end 


end 


DoMouseDown(p1,mod) 


Pomt ) pi; 
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begin 


int 


Point 
Rect 


mod; 


B22. 
tempr; 


Color_id tempcol; 
Mode_id tempmode; 
Pattern_id temppat; 


Int 
Int 


Index; 
Drent; 


Window_id_ Active; 


Active = get_active(); 
Index = Findindex(Active); 


if (!Winlist[Index].doline) 


begin 


copypt(*p1,&p2); 

tempmode = get_xfer_mode(); 
set_xfer_mode(XOR); 
tempcol = get_color(); 
set_color(LTBLACK); 
temppat = get_pattern(); 
set_pattern(HATCH); 


set_rect(p1,&p2,&tempr); 
drawrect(&tempr); 


while (!mouse_up()) 
begin 
get_mouse(Winlist[Index].winid,&p3); 


if (!equalpt(&p2,&p3)) 
begin 


drawrect(&tempr); 
set_rect(p1,&p3,&tempr); 
drawrect(&tempr); 
copypt(p3,&p2); 
end 
end 
drawrect(&tempr); 


set_xfer_mode(tempmode); 
set_color(tempcol); 
set_pattern(temppat); 


if (tequalpt(p1,&p2)) 


begin 
DrawShape(&tempr); 
Drent = Winlist[Index].drawcnt; 
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copyrect(tempr, 
& (Winlist[Index].Drawn[Drent].drrct)); 


Winlist[Index].Drawn[Drent].drfill = 
Winlist[Index].dofill; 


Winlist[Index].Drawn[Drent].drshp = 
Winlist[Index].Shape; 


Winlist[Index].Drawn[Drcnt].drmo = tempmode; 
Winlist[Index].Drawn[Drcnt].drpat = temppat; 
Winlist[Index].Drawn[Drcent].drcol = tempcol; 
Winlist[Index].drawcnt = 
(Winlist[Index].drawcnt + 1) % NUMDR; 


end 
else 
txtpen(p1); 
end 
else 
begin 
copypt(*p1,&p2); 
while (!mouse_up()) 
begin 
get_mouse(Winlist[Index].winid,&p3); 
if (equalpt(&p2,&p3)) 
ae 
drawline(&p2,&p3); 
copypt(p3,&p2); 
end 
end 
end 
end 
haa es ae 
/* Ie oa eee a Pe oe eee emmen a 
Void 
ChDraw(itemnum) 
int itemnum; 
begin 


Int Index; 
Window_id = Active; 


Active = get_active(); 
if (Active == DESK_WIN) 


retum; 
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Index = Findindex(Active); 


Switch (itemnum) 


begin 
case ITOUTLN: 
Winlist[Index].dofill = FALSE; 
item_mark(MNDRAW,ITOUTLN,TRUE); 
item_mark(MNDRAW, ITFILL,FALSE); 
break; 
end; 
case ITFILL: 
begin 
Winlist[Index].dofill = TRUE; 
item_mark(MNDRAW,ITOUTLN,FALSE); 
item_mark(MNDRAW, ITFILL,TRUE),; 
break; 
end; 
case ITSHAPE: 
begin 
if (Winlist[Index].doline) 
begin 
Winlist{Index].doline = FALSE; 
item_enableeMNDRAW,ITOUTLN); 
item_enable(MNDRAW,ITFILL); 
item_enable¢CMNDRAW,ITRECT); 
item_enablee¢eMNDRAW JITELLIP); 
item_enableeMNDRAW J JITARC90); 
item_enable7CMNDRAW,ITARC180); 
item_enableeMNDRAW,ITARC270); 
item_enableeC¢MNDRAW,ITRNDRCT); 
item_mark(MNDRAW,ITSHAPE,TRUE); 
item_mark(MNDRAW,ITLINE,FALSE); 
end 
break; 
end; 
case ITLINE: 
begin 


if (!Winlist[ Index ].doline) 

begin 
Winlist{Index].doline = TRUE; 
item_disableeMNDRAW,ITOUTLN); 
item_disablee¢MNDRAW,ITFILL); 
item_disableyMNDRAW,ITRECT); 
item_disablee(MNDRAW,ITELLIP); 
item_disableMNDRAW,ITARC90); 
item_disableMNDRAW, ITARC180); 
item_disableeMNDRAW,ITARC270); 
item_disable MNDRAW,ITRNDRCT); 
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item_mark(MNDRAW,ITSHAPE,FALSE); 
item_mark(MNDRAW,ITLINE, TRUE); 


end 
break; 
end; 
default: 
begin 
item_mark(MNDRAW, Winlist[Index].Shape, FALSE); 
item_mark(MNDRAW, itemnum, TRUE); 
Winlist{Index].Shape = itemnum; 
break; 
end; 
end 
end 
/* IN ee hee * / 
i Ts BO ee eae mewn knw uk * / 
ChMode(itemnum) 
int itemnum; 
begin 
Int Index; 


Window_id Active; 
Active = get_active(); 


if (Active == DESK_WIN) 
return; 


Index = Findindex(Active); 


switch (itemnum) 
begin 


case TTREPLCE: 

begin 
set_xfer_mode(REPLACE); 
break; 

end; 


case ITTRANS: 

begin 
set_xfer_mode(TRANSPAR); 
break; 

end; 


case ITXOR: 


begin 
set_xfer_mode(X OR); 
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break; 
end; 


case ITREVTR: 

begin 
set_xfer_mode(REVTRANS); 
break; 

end; 


default: break; 
end 


item_mark(MNMODE, Winlist[Index].selMod,FALSE); 
item_mark(MNMODE, itemnum, TRUE); 


Winlist[ Index ].selMod = i1temnum; 
Winlist[Index].winmode = get_xfer_mode(); 


end 
[EE Se EME ARN MEM rc MMM Ny 4 oY */ 
[¥o---2 22-2 ee ee */ 
ChColor(itemnum) 

int itemnum; 
begin 

int darkinc; 

int tempc; 

Int Index; 


Window_id Active; 

Active = get_active(); 

if (Active == DESK_WIN) 
return; 

Index = Findindex(Active); 

if (Winlist[Index].dodark) 
darkinc = DK WHITE; 


else 
darkine = 0; 


Switch (itemnum) 
begin 
case ITDARK: 


S72 


begin 
item_mark(MNCOLOR,itemnum, TRUE); 
item_mark(MNCOLOR, ITLIGHT,FALSE); 
Winlist[Index].dodark = TRUE; 
tempc = get_color(Q); 
tempc = (tempc % DK WHITE) + DK WHITE; 
set_color(tempc); 


b 


end; 


case ITLIGHT: 

begin 
item_mark(MNCOLOR,itemnum, TRUE); 
item_mark(MNCOLOR,ITDARK,FALSE); 
Winlist[{Index].dodark = FALSE; 
tempc = get_color(); 
tempc = (tempc % DK WHITE); 
set_color(tempc); 
break; 

end; 


case ITBLACK: 

begin 
set_color(LTBLACK + darkinc); 
break; 

end; 


case ITWHITE: 

begin 
set_color(LTWHITE + darkinc); 
break; 

end; 


case ITRED: 

begin 
set_color(LTRED + darkinc); 
break; 

end; 


case ITGREEN: 

begin 
set_color(LTGREEN + darkinc); 
break; 

end; 


case ITBLUE: 
begin 
set_color(LTBLUE + darkinc); 


b 


end; 
case ITCYAN: 
begin 
set_color(LTCYAN + darkinc); 


a3 


break; 
end; 


case ITYELLOW: 
begin 
set_color(LTYELLOW + darkinc); 


3 


end; 
case ITMAGENT: 
begin 
set_color(LTMAGENTA + darkinc); 


break; 
end; 


default: break; 
end 


if (Gtemnum != ITDARK) && (itemnum != ITLIGHT)) 


begin 
item_mark(MNCOLOR, Winlist[Index].selCol, FALSE); 
item_mark(MNCOLOR., itemnum, TRUE); 
Winlist[Index].selCol = itemnum; 

end 


Winlist[Index].wincol = get_color(); 


end 
|g eS ck eee ek cohen See eee ceed eee en ewe a * / 
ce ee ne ee me ee * / 
ChPattern(itemnum) 

int itemnum; 
begin 


Int Index; 
Window_id = Active; 


Active = get_active(); 


if (Active == DESK_WIN) 
retum; 


Index = Findindex(Active); 
switch (itemnum) 
begin 
case ITSOLID: 
begin 
set_pattern(SOLID); 
break; 
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end; 


case ITH V YHT: 

begin 
set_pattern(HEA V YHATCH); 
break; 


> 


end; 

case ITHATCH: 

begin 
set_pattern(HATCH); 
br a 


? 


end; 


case ITLTHAT: 

begin 
set_pattern(LTHATCH); 
break; 

end; 


case ITEMPTY: 


begin 
set_pattern(EMPTY); 
break; 
end; 
default: break; 
end 


item_mark(MNPATTRN, Winlist[Index].selPat, FALSE); 
item_mark(MNPATTRN,itemnum, TRUE); 


Winlist[Index].selPat = itemnum; 
Winlist[Index].winpat = get_pattern(); 


end 
/* i Ef ES Ss Te * / 
i I es * / 
Void 
ChWin(itemnum) 
Int itemnum; 
begin 


Int oldiIndex; 
Int Index; 
Window_id active; 


switch (itemnum) 
begin 
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case ITWIN1: 
ee 
Index = 0; 
break; 
end; 


case ITWIN2: 
begin 
Index = 1; 
break; 
end; 


case ITWIN3: 
begin 
Index = 2; 
break; 
end; 


case ITWIN4: 
begin 
Index = 3; 
break; 
end; 


case ITWINS: 
begin 
mMdex—4- 
break; 
end; 


case ITWIN6: 
begin 
Index = 5: 
break; 
ena: 


case I[TWIN7: 
begin 
Index = 6; 
break; 
end; 


default: 

begin 
Index = INVALID; 
return; 
break; 

end; 


end 


if (Winlist[Index].Created) 
begin 


end 


else 
begin 


if (Winlist{Index]. Visible) 

begin 
hide_window(Winlist[{Index].winid); 
Winlist[Index]. Visible = FALSE; 
oldIndex = Index; 


active = get_active(); 
Index = Findindex(active); 


if (active != DESK_WIN) 
ResetMenus(oldIndex,Index); 
else 
Lastactive = oldIndex; 


item_mark(MNWIN,itemnum,FALSE); 
end 


else 

begin 
active = get_active(); 
oldIndex = Findindex(active); 
show_window(Winlist[Index].winid); 
ResetMenus(oldIndex,Index); 
Winlist[Index]. Visible = TRUE; 
item_mark(MNWIN,itemnum, TRUE); 

end 


active = get_active(); 
oldIndex = Findindex(active); 


Winlist[Index].winid = set_new_window(&winrect, 
W_NAME | W_SIZE! W_CLOSE ! W_HSCROLL | W_VSCROLL, 
Title[Index], TRUE); 


Winlist[Index].wincol = LTBLACK; 
Winlist[Index].winpat = SOLID; 
Winlist[Index].winmode = REPLACE; 
Winlist{Index]. Shape = ITRECT; 


Winlist({Index].selPat = ITSOLID; 
Winlist[Index].selCol = ITBLACK; 
Winlist[Index].selMod = ITREPLCE; 


Winlist[Index }].dodark = TRUE; 
Winlist[Index]}.dofill = FALSE; 

Winlist[Index].doline = FALSE; 
Winlist[Index}.Created = TRUE; 
Winlhist[Index]. Visible = TRUE; 


Sf 


end 


Winlist[Index].drawcnt = 0; 


ResetMenus(oldIndex,Index); 
item_mark(MNWIN,itemnum, TRUE); 


DoMenu(menunum,itemnum) 


int 


begin 


menunum,itemnum; 


switch (menunum) 


begin 


case MNDRAW: 

begin 
ChDraw(itemnum); 
menu_hilight(( MNDRAW,FALSE), 
break; 


end; 


case MNMODE: 

begin 
ChMode(itemnum); 
menu_hilight((MNMODE,FALSE); 
break; 

end; 


case MNCOLOR: 

begin 
ChColor(itemnum); 
menu_hilight MNCOLOR,FALSE); 
break; 

end; 


case MNPATTRN: 

begin 
ChPattern(itemnum); 
menu_hilight( MNPATTRN,FALSE); 
break; 


end; 


case MNWIN: 

begin 
ChWin(itemnum); 
menu_hilight(MNWIN,FALSE); 
break; 

end; 
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default: break; 


end 
end 
7 NIE Ecc tir or he Ne a eye le eee Sn * | 
hs NN ce ee ns ee ee * / 
Void 
DoKey(inchr,inmod) 
Char inchr; 
Int inmod; 
begin 
Int width; 
Int height; 


Point Penloc; 


switch (inchr) 





begin 

case CARR_RET: 

begin 
height = get_hchar(); 
set_txtpen(&Penloc); 
Penloc.h = 0; 
Penloc.v += height; 
txtpen(&Penloc); 
break; 

end; 

case BACK _ SP: 

begin 
width = get_wchar(); 
set_txtpen(&Penloc); 
Penloc.h -= width; 
txtpen(&Penloc); 
drawchar(BLANK); 
txtpen(&Penloc); 
break; 

end; 

default: 

begin 
if (anchr >= BLANK) & & (inchr <= '~’)) 

drawchar(inchr); 

break; 

end; 

end 
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Vhs se es eo ee ees we he eee eee a 
Vhs wm meme Mee oo ee en Boe eee eee oe oy) 
evtloop() 
begin 

Bool Stop; 

Int Index; 

Int oldIndex; 

Stop = FALSE; 


while (!Stop) 
begin 
get_event(); 
switch (EVTTYPE) 
begin 
case CLOSEWIN: 
begin 
Stop = TRUE; 


break; 
end; 


case SCROLLBAR: 


DoScroll(EVTSCRPART,EVTSCRPOSN, 


EVTSCRMOVE),; 
break; 
end; 


case KEYBOARD: 

begin 
DoKey(EVTKEY,EVTMOD); 
break; 


end; 


case TOPPED: 
begin 
if (EVTWINDOW != DESK_WIN) 
begin 
oldIndex = Findindex(get_active()); 
Index = Findindex(EVI WINDOW); 
ResetMenus(oldIndex,Index); 
activate_win(EVTWINDOW); 
end 
break; 
end; 
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> 


case MOUSEUP: break; 


case MOUSEDOWN: 
begin 
if(EVTWINDOW != DESK_WIN) 
DoMouseDown(&(EVPOINT),EVTMOD), 


break; 
end; 
case REDRAW: 
begin 
DoUpdate(EVTWINDOW,&EVTRECT); 
break; 
end; 
case MENUHIT: 
begin 
DoMenu(EVTMTITLE,EVTMITEM); 
break; 
end; 
default: break; 
end 
end 
end 
My = ge eee etre Se ek * / 
je RE ee ea ee ede * | 
ASMAINO 
begin 
sys_init(); 


init_menu("TESTS.RSC",TESTSBAR); 


set_point(10,10,&TI); 
set_point(300,300,&Br); 
set_rect(&T1,&Br,&winrect); 


Winlist[O].winid = set_new_window(&winrect, 
W_NAME | W_SIZE ! W_CLOSE | W_HSCROLL | W_VSCROLL, 
Title[O], TRUE); 


set_color(LTBLACK); 
set_pattern(SOLID); 
set_xfer_mode(REPLACE); 


Winlist[0O].wincol = LTBLACK; 


Winlist[O].winpat = SOLID; 
Winlist[O].winmode = REPLACE; 
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end 


Winlist[O].Shape = ITRECT; 


Winlist[O].selPat = ITSOLID; 
Winlist[O].selCol = ITBLACK; 
Winlist[O].selMod = ITREPLCE; 


Winlist[O].dodark = TRUE; 
Winlist[0].dofill = FALSE; 
Winlist[0].doline = FALSE; 


Winlist{O].Created = TRUE; 
Winlist[O]. Visible = TRUE; 
Winlist[O].drawcnt = 0; 


evtloop(); 
sys_end(); 
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ls ASFBIND.H =] 
cane */ 
ace */ 


/* Interface Specifications for functions used to initialize the al 
/* interface. 


[*--------------------------- 22-2 22-2 2-2 nnn nn nnn nee iy 
/* sys_init() ll 
extern State 
sys_initQ); 
/* sys_end() “oa 
extern State 
sys_end(); 
/* I a O22 ee ee ke eee * 


/* Interface Specifications for functions used to manipulate the uv 
/* primitive data type point (in file Asprim.c). 
Ifa ey I a cy ae RT Se cn * ‘ 


/* set_point(Horiz, Vert,& DestPoint) 
extern State 
set_point(); 


/* Horiz = get_x_coord(&InputPoint) 
extern Int 
get_x_coord(); 


/* Vertical = get_y_coord(&InputPoint) 
extern Int 
get_y_coord(); 


/* Flag = equalpt(&Point1,&Point2) 
extern Bool 
equalpt(); 


/* copypt(&SourcePoint,& DestPoint) 
extern State 


copypt(); 


/* Interface Specifications for functions used to manipulate the */ 
/* primitive data type rectangle (in file Asprim.c). * 
ie 
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*/ 


| 


| 


| 


| 


/* set_rect(&Pointl,&Point2,&DestRect) */ 
extern State 
set_rect(); 


/* set_topLeft(&SourceRect,&DestPoint) */ 
extern State 
set_topLeft(); 


/* set_botRight(&SourceRect,&DestPoint)  */ 
extern State 
set_botRight(); 


/* Flag = pt_in_rect(&QPoint,&TgtRect) | 
extern Bool 
pt_in_rect(); 


/* set_insect_rect(&Rect1,&Rect2,&DestRect) */ 
extern State 
set_insect_rect(); 


/* Flag = insect_rect(&Rect1,&Rect2) “4 
extern Bool 
insect_rect(); 
/* Flag = equalrect(&Rect1,&Rect2) “)) 
extern Bool 
equalrect(); 
/* copyrect(&SourceRect,& DestRect) 
extern State 
copyrect(); 
Poel ee eee ee */ 


/* Interface Specifications for functions used to manipulate al 
/* windows as a whole entity. (in file Aswin.c). 


/* set_new_window(&DefRect,Partspec,Titlestr, 
le Visible) 
extern Window_id 
set_new_window(); 


/* activate_win(Windowld) 
extern State 
activate_win(); 


/* hide_window(Windowld) 


extern State 
hide_window(); 
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si 


i) 
4) 


ii 
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/* show_window(Windowld) */ 
extern State 
show_window(); 


/* close_window(Windowld) a 
extern State 
close_window(); 


/* Flag = update_win(Windowld,& UpdRect,&InctRect)*/ 
extern Bool 
update_win(Q); 


/*Flag = next_update(Windowld,&UpdRect,&InctRect)*/ 
extern Bool 
next_update(); 


/* end_update() */ 
extern State 
end_update(); 
/* Windowld = get_active() oa 
extern Window_id 
get_active(); 
1x gas dn oo ee eee ewe * / 
/* Interface Specifications for functions used to manipulate the scroll of 
/* bar portions of windows. (in file Aswin.c). if 
Ve get a 2 eg ly * / 
/* hscroll(NumberPixels,&UpdRect) | 
extern State 
hscroll(); 
/* vscroll(NumberPixels,&UpdRect) me 
extern State 
vscroll(); 
/* set_hscroll(Value) i 
extern State 
set_hscrollQ; 
/* set_vscroll(Value) ay | 
extern State 
set_vscroll(); 
/* Value = get_hscrollQ) if 
extern Int 
get_hscrollQ); 
/* Value = get_vscrollQ) 2) 


extern Int 
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get_vscroll(); 


Vhs wwe cot enebene sees ceeeed se ele eee ey 
/* Interface Specifications for functions used to manipulate the*/ 
/* drawing environment of windows. (in file Aswin.c). =) 
Phas on ma annnndadacscbadnbibeccuaL aloe soe ee ee ee ee ea a ee iff 


/* set_xfer_mode(NewModeld) 
extern State 
set_xfer_mode(); 


/* set_pattern(NewPatternld) 
extern State 
set_pattern(); 


/* set_color(NewColorld) 
extern State 
set_color(); 


/* Colorld = get_color() 
extern Color_id 
get_color(); 


/* Modeld = get_xfer_mode() 
extern Mode_id 
get_xfer_mode(); 


/* Pattern_id = get_pattern() 
extern Pattern_id 
get_pattern(); 


/* Interface Specifications for functions used for drawing graphic 
/* objects into windows. (in file Aswin.c). 


| Mannan EMEME RS KN 


/* drawline(&StartPoint,&EndPoint) 
extern State 
drawline(); 


/* drawrect(&InputRect) 
extern State 
drawrect(); 


/* drawellipse(&InputRect) 
extern State 
drawellipse(); 


/* drawarc(&InputRect,BeginAng,EndAng) 
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uh 


“i 


sd 


i) 


sf | 


*/ 


oy 


il 


“i! 


extern State 
drawarc(); 
/* drawmndrect(&InputRect) 
extern State 
drawrndrect(); 
/* fillrect(&InputRect) 
extern State 
fillrectQ; 
/* fillellipse(&InputRect) 
extern State 
fillellipseQ; 
/* fillarc(&InputRect,BeginAng,EndAng) 
extern State 
fillarc(); 
/* fillrndrect(&InputRect) 
extern State 
fillrndrect(); 
Hg yf REE Ee a a / 
/* Interface Specifications for functions used for text ae 
/* manipulation within windows. (in file Aswin.c). id | 
a I te | a * / 
/* txtpen(&InputPoint) 
extern State 
txtpen(); 
/* set_txtpen(&DestPoint) 
extern State 
Set_txtpen(); 
/* drawstring(&String) 
extern State 
drawstring(); 
/* drawchar(Character) 
extern State 
drawchar(); 
/* CharWidth = get_wchar() 
extern Int 
get_wchar(); 
/* CharHeight = get_hchar() 
extern Int 


get_hchar(); 
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/* Interface Specifications for functions used to manipulate menus 


/* (in file Asmenu.c). 


[Roa no nennannenedsonienaceeesueeeee 
/* init_menu(&Resource Name,MenuBarld) 
extern State 
init_menu(); 
/* item_enable(MenuNumber,ItemNumber) 
extern State 
item_enable(); 
/* item_disable(MenuNumber,ItemNumber) 
extern State 
item_disableQ); 
/* item_mark(MenuNum,ItemNum,ToMark) 
extern State 
item_check(); 
/* menu_hilight(MenuNum,ToHilight) 
extern State 
menu_hilight(Q); 
[PR ranen ne ee 


2 FSS SSS es OS SO SO SF SO SS SSO 8 SS SCS SO SF OF SS SS SS SO SS 2S SOS SS SO SS SO @ SSS SG SOS SO SS SSS SS SO S22 SO Se 2 eee ee oe = 


/* get_event() 
extern State 
get_event(); 


/* get_mouse(Windowld,&DestPoint) 
extern State 
get_mouse(); 


/* Flag = mouse_up(Q) 


extern Bool 
mouse_up(); 
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APPENDIX B 


Mac implementation of Common Interface 


ooo 88 ennai naan nnnennceennwe_---- */ 
eg ASBIND.H (for Demo.c use)  */ 
NEI s Sees n deme teeti ee 0822-2. --_-----2--------- 


#include “"MacTypes.h" 


#define begin { 

#define end } 

typedef int Bool; 

typedef int Int; 

typedef char Char; 

typedef long Long; 

typedef unsigned int Bit16; 

#define State void 

#define Void void 

typedef int Pattern_id; 
typedef int Mode_.id: 
typedef int Color_id; 
typedef int Window_id; 
#define W_NAME OX0009 
#define W_CLOSE 0X0002 
#define W_SIZE 0x0020 
#define W_HSCROLL OxOEOO 
#define W_VSCROLL 0x01C0 
#define INVAL_WIN -] 
#define DESK_WIN 0 
#define MAXNUMWIN 7 
#define SOLID 1 
#define HEAV YHATCH 2 
#define HATCH 3 
#define LTHATCH 4 
#define EMPTY 5 
#define LTWHITE 0 
#define LTBLACK 1 
#define LTRED 2 
#define LTGREEN 5 
#define LTBLUE 4 
#define LTCYAN 5 
#define LTYELLOW 6 
#define LTMAGENTA ‘ 
#define DKWHITE & 
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#define DKBLACK 
#define DKRED 
#define DKGREEN 
#define DKBLUE 
#define DKCYAN 
#define DK YELLOW 
#define DKMAGENTA 
#define REPLACE 
#define TRANSPAR 
#define XOR 
#define REVTRANS 
#define FALSE 
#define TRUE 
#define POINTER(x) 
#define ASMAINO 
typedef Struct Evtmsg 
begin 
int type; 
Window_id ~~ winid; 
Rect evice: 
Point evpoint; 
int scrpart; 
int SCrposn; 
int scrmoved; 
char keystroke; 
int mod; 
int mtitle; 
int mitem; 
end Evtmsg; 
extern Evtmsg Message; 
#define EVTTYPE 
#define EVTWINDOW 
#define EVTRECT 
#define EVPOINT 
#define EVTSCRPART 
#define EVTSCRPOSN 
#define EVTSCRMOVE 
#define EVTKEY 
#define EVTMOD 
#define EVTMTITLE 
#define EVTMITEM 
#define REDRAW 
#define TOPPED 
#define CLOSEWIN 
#define SCROLLBAR 
#define MOUSEDOWN 


10 
tl 
2 
13 
14 


mWN 


0x0000 
0x0001 


(int)(x) 


main() 


Message.type 
Message. winid 
Message.evrec 
Message.evpoint 
Message.scrpart 
Message.scrposn 
Message.scrmoved 
Message.keystroke 
Message.mod 
Message.mtitle 
Message.mitem 


RWNKe © 
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#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 


#define 


#define 
#define 
#define 
#define 


KEYBOARD 
MOUSEUP 
MENUHIT 


V_PAGEUP 
V_PAGEDOWN 
V_ROWUP 
V_ROWDOWN 
H_PAGEUP 
H_PAGEDOWN 
H_ROWUP 
H_ROWDOWN 
V_THUMB 
H_THUMB 


MINSCR 
MAXSCR 


DESKMENU 


NUL_CHR 
CARR_RET 
BACK_SP 
BLANK 


— ) OoOonANMNRWN HH © TANN 


SVT 


\O' 

Ox0D 
0x08 
Ox20 
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#define 


#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


INVALID 
TESTSBAR 


MNDRAW 
ITOUTLN 
BRS 
ITRECT 
ITELLIP 
ITARC90 
ITARC180 
ITARC270 
ITRNDRCT 
ITSHAPE 
ITLINE 


MNMODE 
ITREPECE 
ITTRANS 
ITXOR 
ITREVTR 


MNCOLOR 
ITDARK 
ITLIGHT 
ITBLACK 
ITWHITE 
ITRED 
ITGREEN 
ITBLUE 
ITCYAN 
ITYELLOW 
ITMAGENT 


MNPATTRN 
ITSOLID 
ITHVYHT 
ITHATCH 
ITLTHAT 
ITEMPTY 


SCO NO aS 


pod pred 
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ii ASPRIM.C (for Demo.c use)  */ 
ep TEES ee ETE eee */ 
#include "Asbind1.h" 

Ve IIIT tk re ee a ee ee ee kek * / 
/* get_x_coord: Function which returns the horizontal iE 
ih coordinate of the input point pt. it! 
vr eye a Rc gc) nn e/ 


Int get_x_coord(pt) 


Point *pt; 


— 
return((*pt).h); 

en 

NG pe EE a RE Ee ec pS */ 

/* get_y_coord: Function which returns the vertical coordinate vl 

hs of the input point pt. 

lke i a ty 


Int get_y_coord(pt) 


Point *pt; 


return((*pt).v); 


/* set_topLeft: Function which returns the top left point of the */ 
/* input rectangle r as p. a 


es ee cece ps a i a IS a * i 
State set_topLeft(r,p) 
Rect “I; 


Point *p; 


fon):n = (*r). left: 
(*p).v = (*r).top; 


end 

bs a ee eee oe oe ca ubw bw nkwuncwdawseSedecuuw * / 
/* set_botRight: Function which returns the bottom right # 
‘ha point of the inputrectangle r as p. sf A 
is ene oe ck tec eee a | 


State set_botRight(r,p) 
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Rect  *r; 
Point > 7p; 


be si 
(*p).h = (*r).nght; 
(*p).v = (*r). bottom; 
end 
/* mice cece enn ans ecbee coe cee ee ba eee ee ee ok eee ef 
/* pt_in_rect: Function which determines if the input point pis */ 
fe within or on the border of the input rectangle r. | 
/* a a we a | 
Bool _ pt_in_rect(p,r) 
Point “=p: 
Rect *r: 
ae 
return(PtInRect(*p, r)); 
end 
/* a ia a a A el Aca ai 
/* set_insect_rect: Function which determines the rectangle which “4 
fs is formed by the intersection of the input rectanglesrl andr2. The */ 
ee resulting rectangle is returned in rint. If the intersection is non- oa 
/* empty, the rectangle returned in rint will be defined by top left and */ 
fh: bottom right points of (0,0). a, 
i oseeecace ca aca ee cg ee ay 
State set_insect_rect(r1,r2,rint) 
Rect (2nleaer = rint. 
begin . 
SectRect? rz. ring), 
end 
/* ee ee eee) MR ee | 
/* insect_rect: Function which determines if the input a 
/* rectangles rl and r2 intersect. 7h, 
{= bes oe eee te ee a */ 
Bool insect_rect(rl,r2) 
Rect is ol Weed 1s 
begin . 
Rect *rint; 
return(SectRect(rl, r2, rint)); 
end 
i Be wa o Son oo eS ee ee ay 





/* equalrect: Function which determines if the two input 7 
eg rectangles are the same rectangle. si 
* 


Bool equalrect(r1,r2) 


Rect sd ll ws eae 
Beer 

return(EqualRect(rl, r2)); 
end 
Ha TEE I ee ce ck ce Sak ceucckéinusoauedesson al f 
/* equalpt: Function which determines if the two input points */ 
he are the same point. 4 
ih a pt OMe ee eee es eho ec ce keces il 


Bool equalpt(p1,p2) 
Foint *pl, *p2: 


begi 
return(EqualPt(*p1,*p2)); 

end 

hey ye ES 5 aI RE a a ay 

/* copypt: Function which copies the source pointinto the */ 

ye destination point. +) 

er IE Rr Ri ee on oa eo ke wee ncckccucec ues i | 


State copypt (source,dest) 
Point source, *dest; 
begin 


(*dest).h = source.h; 
(*dest).v = source.v; 


end 

/* Nn ay er) SEAT ES en ee eee ee Sn Se So See 2K 
/* copyrect: Function which copies the source rectangle ay) 
/* into the destination rectangle. of 
Eg aS OE ee ee ee tr * / 


State copyrect (source,dest) 


Rect source, *dest; 


(*dest).left = source.left; 

(*dest).top = source.top; 

(*dest).nght = source.nght; 

(*dest). bottom = source.bottom; 
end 


TS 


/* set_point: Given two integers which represent the x and y oy) 


[fe coordinates (the new horizontal and vertical positions  */ 
fi of the point), the function returns a modified point. ) 
hs i ee ec ae ess in See ew a ae * / 


State set_point(x,y,pt) 


int X,Y; 

Point *pt; 
begin 

SetPt(pt,x,y); 
end 
/* wetnecuweewcneesee ce esb wc ebsees coe See ee a 2 *K / 
/* set_rect: Function which, given two points, determines the smallest oi) 
hs rectangle that those points could define and sets the top left and i 
is bottom right points of the output rectangle rto correspond tothat */ 
He rectangle. a 
[Benne ene thee ee tte SL */ 


State set_rect(p1,p2,r) 


Point) “ple: p2; 
Rect 5 we 


begin 
/* case 1 p2 is to the right and below pl */ 
if (((*p2).h >= (*p1).h) && ((*p2).v >= (*p1).v)) 
setRect(r,(*pl):h, Cpl).v, Cp2) hn, Cpe) 


/* case 2 p1 is to the right and below p2 */ 
else if (((*pl).h >= (*p2).h) && ((*pl).v >= (*p2).v)) 
SetRect(r, (*p2).h, (*p2).v, (*pl).h, (*p1).v); 


/* case 3 pl is to the nght and above p2 */ 
else if (((*pl).h <= (*p2).h) && ((*pl).v >= (*p2).v)) 
SetRect(r,(*p1).h, (*p2).v, (*p2).h, (*p1).v); 


/* case 4 p2 is to the right and above p1 */ 
else 1f (((*p2).h <= (*pl).h) && ((*p2).v >= (*pl).v)) 
SetRect(r,(*p2).h, Cpl)v, (pl) he Gp2 a): 
end 
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ie ASEVT.C a | 
jag RIE secre...) a eee ee MEL eek SS yRele so * / 
#include "asevti.c" 
State get_event() 
begin 

EventRecord myEvent; 

PenState thePen; 


evtstop = false; 


while (!evtstop) begin 


SystemTask(); 
GetNextEvent(everyEvent, &myEvent); 
switch(myEvent.what) begin 

case mouseDown: 


MDEvent(myEvent); 
break; 


case autoKey: 
case keyDown: 


EVTTYPE = KEYBOARD; 

EVTKEY = (char)(Ox7F & LoWord(myEvent.message)); 
EVTMOD = myEvent.modifiers; 

evistop = true; 

break; 


case updateEvt: 


EVTWINDOW = GetWRefCon(myEvent.message); 


SetRect(&EVTRECT,O,0,0,0); 
EVTTYPE = REDRAW; 
evtstop = true; 


SetPort(myEvent.message); 
GetPenState(&thePen); 
PenMode(patCopy); 
PenPat(black); 


SetOrigin(WindList[EVTWINDOW].Wholewin.top, 
WindList| EVTWINDOW].Wholewin.left); 
ClipRect(&(WindList{EVTWINDOW ].Wholewin)); 


if ((WindList}iEVTWINDOW].Parts & W_SIZE) == W_SIZE) 
DrawGrow!Icon(WindList[E V TWINDOW J. Winhandle); 


DrawControls(myEvent.message); 
SetOrigin(WindList{EVTWINDOW].Workwin.top, 


WindListtEVTWINDOW].Workwin.left); 
ClipRect(&(WindList{E VTWINDOW].Workwin)); 


V7 


SetPenState(&thePen); 
SetPort(WindList{ Active_win].Winhandle); 


break; 
default:break; 
end 
end 

end 
/* ed Seine ewe belch es ee oe ee ee eee * ii 
/* get_mouse: Function which gets the current mouse position and outputs */ 
he it in the local coordinate system of the window specified by Id. th 
Hiss Se mww ee bbowe ca Se eee enw cu cdenecc cote uee eee a ee * } 


State get_mouse(Id,pt) 


Int Id; 
Pome wept 
begin 
GrafPtr tempport; 
GetPort(&tempport); 
SetPort(WindList[{Id].Winhandle); 
GetMouse(pt); 
SetPort(tempport); 
end 
[es en rn ere eee sal 
| es mmwmmmmewmncnennsesecdoscude cee ecco e eee =) 
Bool mouse_up() 
begin 
return(! Button()); 
end 
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el ASEVTI.C of 
SININNNE es otnee ona. ee ee enn */ 
#include "Windecl.h" 
static Bool evtstop; 

Evtmsg Message; 
extern Window_id  Active_win; /* index of active window */ 
extern Winrec WindList MAXNUMREC]; 


State MDEvent(event) 


EventRecord event; 

begin 
WindowPtr MyWindow; 
Window_id winID; 
Int location; 
GrafPtr tempport; 
ControlHandle whscroll; 
Int part,modpart,hval,vval; 
Rect arect,brect; 
Long amtmove; 
Long menuresp; 


location = FindWindow(event. where,&My Window); 


if (MyWindow != NIL) 
EVTWINDOW = GetWRefCon(My Window); 
else 
EVTWINDOW = 0; 
if (EVTWINDOW != Active_win)&&(location != inMenuBar)) begin 
GetPort(&tempport); 
SetPort(MyWindow); 
GlobalToLocal(&(event.where)); 


) EVTTYPE = TOPPED; 
EVTMOD = event.modifiers; 
copypt(event.where,&EVPOINT); 


SetPort(tempport); 
evtstop = true; 
end 
else 
begin 





Switch (location) 

begin 

case inMenuBar: 

menuresp = MenuSelect(event. where); 
EVTMTITLE = HiWord(menuresp); 
EVTMITEM = LoWord(menuresp); 
EVTTYPE = MENUHIT; 

evtstop = true; 
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break; 


case inContent: 
GetPort(&tempport); 
SetPort(MyWindow); 


copypt(event.where, &EVPOINT); 
SetOngin(0,0); 
ClipRect(&(WindListtEVTWINDOW].Wholewin)); 


GlobalToLocal(&(event.where)); 
part = FindControl(event.where,MyWindow,&whscroll); 


if (part == 0) begin 

SetOngin(WindList|EVTWINDOW}].Workwin.left, 
WindListtEVTWINDOW].Workwin.top); 

ClipRect(&(WindList{E VTWINDOW].Workwin)); 
GlobalToLocal(&E VPOINT); 
EVTTYPE = MOUSEDOWN; 
EVTMOD = event.modifiers; 
SetPort(tempport); 
evitstop = TRUE; 

end 


else if ((whscroll == WindListLEWTWINDOW]}].Hscrhandle) II 
(whscroll == WindListt{EWPFWINDOW}].Vscrhandle)) begin 


EVTTYPE = SCROLLBAR; 

hval = GetCtl Value(WindList[E VTWINDOW].Hscrhandle); 
wal = GetCtl Value(WindList{E VIWINDOW]. Vscrhandle); 
modpart = TrackControl(whscroll,event. where,0); 


if (modpart == part) 





begin 
if (whscroll == WindListt{EVWTWINDOW]}].Vscrhandle) 
begin 
switch (modpart) 
begin 
case inPageUp: 
EVTSCRPART = V_PAGEUP; 
break; 


case inPageDown: 
EVTSCRPART = V_PAGEDOWN; 
break; 


case inUpButton: 
EVTSCRPART = V_ROWUP; 
break; 
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case inDownButton: 
EVTSCRPART = V_ROWDOWN; 


break; 


case inThumb: 
EVTSCRPART = V_THUMB; 
break; 


default: break; 


end 
EVTSCRMOVE = 
GetCtd Value(WindListtEVTWINDOW ].Vscrhandle) 
- wal; 
EVTSCRPOSN = 


GetCtl Value(WindList[EVTWINDOW].Vscrhandle); 
SetCtl Value(WindList|EVTWINDOW].Vscrhandle,vval); 
end 


else 
begin 


switch (modpart) 
begin 


case inPageUp: 
EVTSCRPART = H_PAGEUP; 
break; 


case inPageDown: 
EVTSCRPART = H_PAGEDOWN; 
break; 


case inUpButton: 
EVTSCRPART = H_ROWUP; 
break; 


case inDownButton: 
EVTSCRPART =H ROWDOWN; 
break; 


case inThumb: 
EVTSCRPART = H_THUMB; 


break; 
default: break; 
end 
EVTSCRMOVE = 
GetCtl Value(WindList{[EVTWINDOW].Hscrhandle) 
- hval; 
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EVTSCRPOSN = 
GetCtl Value(WindList{EVTWINDOW].Hscrhandle); 
SetCd Value(WindList{E VTWINDOW].Hscrhandle,hval); 
end 


end /* if */ 
SetOngin(WindListt EVTWINDOW].Workwin.left, 


WindList{EVTWINDOW].Workwin.top); 
ClipRect(&(WindList{EVTWINDOW].Workwin)); 


SetPort(tempport); 
evtstop = TRUE; 
end (else, 
break; 
case inDrag: 
if (EVT WINDOW == Active_win) 
begin 
SetRect(&brect,-32000,20,32000,32000); 
DragWindow(My Window,event. where, &brect); 
SetOrigin(WindList{EVTWINDOW].Wholewin left, 
WindListtEVTWINDOW].Wholewin.top); 
ClipRect(&(WindList{EVTWINDOW].Wholewin)); 
if (WindListtEVTWINDOW].Parts & W_SIZE) 
DrawGrowlcon(MyWindow),; 
DrawControls(My Window); 
SetOrigin(WindList{ EVTWINDOW].Workwin.left, 
WindListtiEVTWINDOW].Workwin.top); 
ClipRect(&(WindListt/EVTWINDOW].Workwin)); 
end 
break; 





case inGrow: 
if (EVTWINDOW == Active_win) 
begin 
SetRect(&brect,40,40, 1000, 1000); 


SetOri gin(WindList| EVTWINDOW].Wholewin.left, 
WindList{EVWTWINDOW].Wholewin.top); 
ClipRect(&(WindList{EVTWINDOW].Wholewin)); 


amtmove = GrowWindow(My Window,event.where, 
&brect); 

hval = LoWord(amtmove); 

vval = HiWord(amtmove); 

copyrect(WindList{EVTWINDOW].Workwin,é&brect); 

Size Window(My Window, hval,vval FALSE); 
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copyrect((*MyWindow).portRect,&(WindList[EVTWINDOW].Wholewin)); 


copyrect((*MyWindow).portRect,&(WindList|EVTWINDOW ].Workwin)); 
copyrect((*My Window).portRect,&arect); 
arect.night -= 16; 
arect.bottom -= 16; 
ClipRect(&(WindList[EVTWINDOW].Wholewin)); 


if (((WindList{EV TWINDOW}].Parts & W_SIZE) > 0) && 
(amtmove !=Q)) 

begin 
DrawGrowlcon(MyWindow); 
WindListt{EVTWINDOW].Workwin.bottom -= 16; 
WindList{EVTWINDOW].Workwin.nght -= 16; 

end 

ClipRect(&arect); 


if (((WindList{EVTWINDOW]}].Parts & W_HSCROLL) > 0) 
&& (amtmove !=Q)) 
begin 
SizeControl(WindListLEVTWINDOW}].Hscrhandle, 
hval - 15,16); 


MoveControl(WindListtEVTWINDOW}].Hscrhandle, 
WindList{EVTWINDOW].Wholewin.left, 
WindList{EVTWINDOW].Wholewin.bottom - 16); 


if (}((WindListtLEVTWINDOW}].Parts & W_SIZE) > 0)) 
WindListiEVTWINDOW ].Workwin.bottom -= 16; 
end 


if (((WindList|EVTWINDOW}].Parts & W_VSCROLL) > 0) 
&& (amtmove != 0)) 


begin 

SizeControl(WindList[EVTWINDOW].Vscrhandle, 
16, vval - 15); 

MoveControl( 


WindListt{EVTWINDOW}].Vscrhandle, hval - 16,0); 


if (:((WindListILEVTWINDOW].Parts & W_SIZE) > 0)) 
WindListl[EVTWINDOW}].Workwin.right -= 16; 


end 


ClipRect(&(WindList]EVTWINDOW].Wholewin)); 
DrawControls(My Window); 


if (amtmove != 0) 
OffsetRect(&(WindList|E VTWINDOW ].Workwin), 
brect.left,brect.top); 
else 
copyrect(brect, 
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&(WindListt EVTWINDOW].Workwin)); 


SetOrigin(WindList|EVTWINDOW}].Workwin.left, 

WindList{EVTWINDOW].Workwin.top); 
ClipRect(&(WindList{EVTWINDOW}].Workwin)); 
InvalRect(&(WindListEVTWINDOW}].Workwin)); 
ValidRect(&brect); 


End) ihe, 
break; 
case inGoAway: 
if (TrackGoAway(MyWindow,event.where)) 
begin 
EVTTYPE = CLOSEWIN; 
evtstop = TRUE; 
end 


break; 
default: break; 
end 


end 
end 
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ia ASWIN.C sf 
= copy ID DA a ado rr * / 
#include "Windecl.h" 

#include “aswini.c” 

/* I SR et he ee ee tee * / 
ba il el lp eM pl i Rg 00 >/ 


State sys_end() 


begin 
ExitToShellQ; 
end 
/* yy A al a SD eC aye 
/* == 8 Pe a en ee oe Bec eeee sai | 


State sys_init() 


InitGraf(&thePort); 
InitFontsQ); 
FlushEvents(everyEvent, 0); 
InitWindows(); 

InitMenus(); 

TEInitQ); 
InitDialogs(&sys_end); 
InitCursor(); 

wind_init(); 


/* activate_win: Function which causes the specified window to become */ 
/* the active window. It causes any window (but the desktop witha */ 
/* id number of 0) to be moved to the top and a new backround will = */ 


/* be drawn in, however, the contents will not be automatically */ 
/* redrawn. %/ 
/* penne oy yrange ae “aid 


State activate_win(Id) 


Int Id; 
begin 
if((d != Active_win) & & (Id != 25)) 
begin 
/* if control bars present remove them from the window a 
/* being deactivated el 


if (Active_win != DESK_WIN) 
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begin 
SetPort(WindList[ Active_win].Winhandle); 
SetOngin(WindList[ Active_win].Wholewin.left, 
Wind List[Active_win].Wholewin.top); 
ClipRect(&(WindList[ Active_win].Wholewin)); 


if ((WindList[ Active_win].Parts & W_HSCROLL) == 
W_HSCROLL) 
HideControl(WindList[Active_win].Hscrhandle); 


if ((WindList[Active_win].Parts & W_VSCROLL) == 
W_VSCROLL) 
HideControl(WindList[Active_win]. Vscrhandle); 


end 
/* Draw the grow box and scroll bars in the window being activated */ 


SelectWindow(WindList[Id].Winhandle); 

Last_active = Active_win; 

Active_win = Id; 

SetPort(WindList[1d].Winhandle); 

SetOngin(WindList[ Active_win].Wholewin.left, 
WindList[Active_win].Wholewin.top); 

ClipRect(&(WindList[Active_win].Wholewin)); 


if ((WindList[ Active_win].Parts & W_SIZE) == W_SIZE) 
DrawGrowIcon(WindList[ Active_win].Winhandle); 


if ((WindList[Active_win].Parts & W_HSCROLL) == W_HSCROLL) 
ShowControl(WindList[Active_win].Hscrhandle); 


if ((WindList[Active_win].Parts & W_VSCROLL) == W_VSCROLL) 
ShowControl(WindList[Active_win].Vscrhandle); 


SetOn gin(WindList[ Active_win}].Workwin.left, 


WindList[Active_win].Workwin.top); 
ChipRect(&(WindList[Active_win].Workwin)); 


/* erase the grow box in the newly inactive window */ 
if (Last_active != DESK_WIN) 
SetPort(WindList[Last_active].Winhandle); 


if ((WindList[Last_active].Parts & W_SIZE) == W_SIZE) 
DrawGrowlcon(WindList[Last_active].Winhandle); 


SetOnigin(WindList[Last_active].Workwin.left, 
WindList[Last_active].Workwin.top); 
ClipRect(&(WindList[Last_active].Workwin)); 


SetPort(WindList[Id].Winhandle); 


8 6 





end 


end 
end 
/* a A A et ne SO a a * 
/* show_window: Function which draws an invisible but previously defined */ 
/* window onto the screen. This window becomes the active window. ay! 
/* nO 228 OSPR One ey) ADT Nn eR ee ee * / 


State show_window(ld) 


Int Id; 
begin 
WindowPtr __ tempptr; 
if Id != DESK_WIN) 
ae 
if (!WindList[Id].Wdefrec.visible) 
begin 
ShowWindow(WindList[Id].Winhandle); 
activate_win(Id); 
end 
end 
end 
lig INI Stes Ts ee ee ee oe | 
/* hide_window: Function which removes the specified window */ 
/* from the screen without deallocating it. al 
jf naa dere Oe a ee ee */ 


State hide_window(Id) 
Int Id; 
begin 


WindowPtr _ tempptr; 
Window_id _ newactid; 


if (id != DESK_WIN) && (WindList[Id].Wdefrec.visible)) 


begin 
HideWindow(WindList[Id].Winhandle); 





if (dd == Active_win) && any_visible()) 


begin 
tempptr = FrontWindow(); 
newactid = GetWRefCon(tempptr); 
activate_win(newactid); 

end 


end 
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Window_id set_new_window(InitRect, Partspec, Title, is_ Visible) 


Rect *InitRect; 

Bitl6 Partspec; 

Char *Title; 

Boolean is_ Visible; 
begin 

Bool IfWName; 

Bool IfW Close; 

Bool IfWSize; 

Bool IfWScrollH; 

Bool IfWScrollV; 

Bool IfShrunk; 

Int oldRef; 

Int procID; 

WindowPtr myWindow; 

Char *Name,temp[255]; 

Rect vScrollRect,hScrollRect,tempWdef; 
Static Int refCon = QO; /* Reference constant for new window */ 


IfWName = Partspec & W_NAME; 
IfWClose = Partspec & W_CLOSE; 
IfWSize = Partspec & W_SIZE; 
IfWScrollH = Partspec & W_HSCROLL; 
IfWScrollV = Partspec & W_VSCROLL; 


if (!get_next_rec(&refCon)) 
retun(INVAL_WIN); 


WindList[refCon].Parts = Partspec; 
SetPt(&(WindList[refCon].Txtpen),0,20); 
copyrect(*InitRect, &tempWdef); 

temp Wdef.top += 20; 
OffsetRect(&tempWdef,0,20); 


if (IfWSize) 
procID = documentProc; 
else begin 
if (fWName Il IfWClose) 
procID = noGrowDocProc; 
else 
procID = plainDBox; 
end 
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if (IfW Name) begin 
strcpy(temp, Title); 
CtoPstr(temp); 
Name = temp; 

end else 
Name = “\p"; 

my Window = NewWindow(&(WindList[refCon].Wdefrec), &tempWdef, 

Name, false, procID, NIL, IfWClose, refCon); 

Available_win[refCon] = false; 

WindList{refCon].Winhandle = myWindow; 

SetPort(myWindow); 


copyrect((*my Window).portRect, &(WindList[refCon].Wholewin)); 
copyrect((*my Window).portRect, &(WindList[refCon].Workwin)); 
if (fWSize) begin 
IfShrunk = true; 
WindList[refCon].Workwin.bottom -= 17; 
WindList[refCon].Workwin.nght -= 17; 
end else IfShrunk = false; 


if dfWScrollH) begin 
copyrect(WindList[refCon].Wholewin, &hScrollRect); 
hScrollRect.top = hScrollRect.bottom-16; 
hScrollRect.nght -= 15; 
WindList[{refCon].Hscrhandle = 
NewControl(myWindow, &hScrollRect, '\p", false, 
MINSCR, MINSCR, MAXSCR,scrollBarProc,refCon); 
if (IfShrunk) 
WindList[refCon].Workwin.bottom -= 16; 
end else 
WindList{refCon].Hscrhandle = 0; 


if dfWScrollV) begin 
copyrect(WindList[refCon].Wholewin, &vScrollRect); 
vScrollRect.left = vScrollRect.nght-16; 
vScrollRect.bottom -= 15; 
WindList[refCon].Vscrhandle = 
NewControl(myWindow, &vScrollRect,'\p", false, 
MINSCR,MINSCR, MAXSCR,scrollBarProc,refCon); 
if (IfShrunk) 
WindList[refCon].Workwin.right -= 16; 
end else WindList[refCon]. Vscrhandle = 0; 


ClipRect(&(WindList[refCon].Workwin)); 


WindList[refCon].wincol = LTBLACK; 
WindList[refCon].winpat = SOLID; 
WindList[refCon].winmode = REPLACE; 
TextMode(srcBic); 

TextFont(monaco); 


if Gs_ Visible) 
show_window(refCon); 
else 


89 


SetPort(WindList[Active_win].Winhandle); 
return(refCon); 


/* set_pattern: Function which sets the pattern to be used to draws */ 
/* and fill in shapes in the active window. y) 


State 
Set_pattern(newpattern) 


Pattern_id newpattem; 
begin 
if (((WindList[Active_win].wincol == DK WHITE) | 
(WindList[Active_win].wincol == LTWHITE)) && 


(WindList[Active_win].winmode == REPLACE)) 
PenPat(black); 


else 

begin 
switch (newpattern) 
begin 


case HEAVYHATCH: 
PenPat(dkGray); 
break; 


case HATCH: 


PenPat(gray); 
break; 


case LTHATCH: 
PenPat(ItGray); 
break; 


case EMPTY: 
PenPat(white); 
break; 


default: 
PenPat(black); 
break; 
end 
end 


WindList[Active_win].winpat = newpattern; 


end 


/* set_xfer_mode: function which will set the mode for drawing into | 
/* the active window. ¥/ 


State 
set_xfer_mode(newmode) 


Mode_id newmode; 


begin 
if ((WindList[Active_win].wincol == DK WHITE) I 
(WindList[Active_win].wincol == LTWHITE)) 
begin 


switch (newmode) 
begin 
case TRANSPAR: 
PenMode(patBic); 
TextMode(srcBic); 
| break; 


| case XOR: 
PenMode(patxor); 
TextMode(srcXor); 
break; 
case REVTRANS: 
PenMode(notPatBic); 
TextMode(srcBic); 
break; 


PenMode(notPatCopy); 
TextMode(srcBic); 
PenPat(black); 

break; 


default: 


end 
end 


else 
begin 


switch (newmode) 


case TRANSPAR: 
PenMode(patOr); 
TextMode(srcOr); 
break; 


case XOR: 
PenMode(patXor); 
TextMode(srcXor); 
break; 
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case REVTRANS: 
PenMode(notPatOr); 
TextMode(srcOr); 
break; 


default: 
PenMode(patCopy); 
TextMode(srcOr); 
break; 
end 


set_pattern(WindList[Active_win].winpat); 
end 


WindList[Active_win].winmode = newmode; 


State 
set_color(newcolor) 


Int newcolor; 
begin 
Int theColor; 


switch(newcolor) 
begin 

case LTBLACK: 

case DKBLACK: 
theColor = blackColor, 
break; 

case LTWHITE: 

case DK WHITE: 
theColor = whiteColor; 
break; 

case LTRED: 

case DKRED: 
theColor = redColor; 
break; 

case LTGREEN: 

case DKGREEN: 
theColor = greenColor; 
break; 

case LTBLUE: 

case DKBLUE: 
theColor = blueColor; 
break; 

case LTCYAN: 
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case DKCYAN: 
theColor = cyanColor; 
break; 
case LTYELLOW: 
case DK YELLOW: 
theColor = yellowColor; 
break; 
case LIMAGENTA: 
case DKMAGENTA: 
theColor = magentaColor; 
break; 
default:break; 
end 
ForeColor(theColor); 
WindList[Active_win].wincol = newcolor; 


Window_id _ get_active() 


begin 
return(Active_win); 


/* drawline: Function which draws a line in the currently active window.*/ 
/* Input coordinates are relative to the top left hand comer of the “| 
/* active window. “i 


K 
a ee ee ec ee. § $e ne eee lee od 


State 
drawline(St_pt,End_pt) 


Eom) *St_pt,- End pt; 


MoveTo((*St_pt).h,(*St_pt).v); 
LineTo((*End_pt).h,(*End_pt).v); 


/* drawrect: Function to draw the outline of a rectangle in the active oF 

/* window. The coordinates of the input rectangle are asumed to be i) 

/* relative to the top left corner of the active window's work area. “) 
* 


cc ee ore */ 


State 
drawrect(In_rect) 


Rect *In_ rect; 
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begin 


FrameRect(In_rect); 


end 

es a ep ey oe 5 i 
/* drawellipse: Function which draws an ellipse within the area of the sa | 
/* active window specified by the input rectangle. The coordinates ‘i 
/* of the input rectangle are assumed to be relative to the top left oy 
/* corner of the work area of the active window. 5 
|, inne: nner 8 eee ee */ 

State 


drawellipse(In_rect) 


Rect jInarece 
begin 
FrameOval(In_rect); 
end 
i hes mS een eee oe ee Sa ee ee *k y 


/* drawarc: Function which draws an elliptical arc between the two */ 
/* input angles (begang and endang) specified and within the 7 


/* rectangular area of the active window specified. The input +) 

/* rectangle is assumed to be relative to the top left corner of the */ 

/* work area of the active window. wi 

ce nttacwaa et waceun Socal. oS. fe oe ee ee ee a k i 
State 


drawarc(R,begang,endang) 


Rect Tike 

Int begang,endang; 
begin 

begang = (begang/10); 

endang = (endang/10); 

FrameArc(R,begang,endang); 
end 
[PR onannn ean nent dah See */ 
/* drawrndrect: Function which draws the outline of a rounded rectangle */ 
/* within the specified rectangular area of the active window. */ 
[¥ rewenwennn nnn nncnsnde one sabeeeo-naekinncenesldacsee ee */ 

State 


drawrndrct(In_rect) 
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Rect *Tierect: 


begin 
Int width,height; 


width = RRWIDTH; 
height = RRHEIGHT; 


FrameRoundRect(In_rect,width,height); 


end 

Ibs nn) 2 eee oe eden ccceconceenccuseace * / 

/* fillrect: Function which draws a pattern within the specified */ 

/* rectangular area of the active window. a 

es ne */ 
State 


fillrect(In_rect) 

Rect Ine Teck 
begin 

PaintRect(In_rect); 


end 


/* fillellipse: Function which fills an ellipse within the area of the iat | 
/* active window specified by the input rectangle. The coordinates */ 
/* of the input rectangle are assumed to be relative tothe top left  */ 
/* corner of the work area of the active window. iy 


State 
fillellipse(In_rect) 


Rect *In_rect; 
begin 
PaintOval(In_rect); 


/* fillarc: Function which fills an elliptical arc between the two 

/* input angles (begang and endang) specified and within the 

/* rectangular area of the active window specified. The input 

/* rectangle is assumed to be relative to the top left corner of the 

/* work area of the active window. Angles are reversed in the GEM 
/* function call to force correspondence to Mac. 
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State 
fillarc(R,begang,endang) 


Rect aR: 
Int begang,endang; 


begin 
begang = (begang/10); 
endang = (endang/10); 


PaintArc(R,begang,endang); 


/* fillrndrect: Function which fills the outline of a rounded rectangle i) 
/* within the specified rectangular area of the active window. a 


eg ee I oF aga ee a eh OA SL Te le Soe ee * / 


State 
fillrndrct(In_rect) 


Rect *In rect; 


begin 
Int width, height; 


width = RRWIDTH; 
height = RRHEIGHT; 


PaintRoundRect(In_rect,width,height); 


/* get_color: Function which returns the drawing color of the active */ 
e window. */ 


Color_id 
get_color() 
begin 


return(WindList[Active_win].wincol); 
end 


/* get_pattern: Function which returns the drawing pattern of the active */ 
i window. . 


Pattern_id 
get_pattern() 
begin 
return(WindList[ Active_win].winpat); 
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wo RSE ee ee */ 
/* get_xfer_mode: Function which returns the drawing transfer */ 
/* mode of the currently active window. a 
/* ns. ie a ee Ok oa es ee eet ka cewek tenweoone * / 
Mode_id 
get_xfer_mode() 
begin 
return(WindList[Active_win].winmode); 
end 
je ay tte neta 2 ee eR eR ekcuwceaews * / 
is txtpen: Function which sets the location where ‘i 
ie the next call to drawchar or drawstring will place  */ 
ie that string in the active window. | 
/* EN ta fe ee oe eno acc bo menaenkecoue * | 
State 
txtpen(inpt) 
Point *inpt; 
begin 
copypt(*inpt,&(WindList[Active_win].Txtpen)); 
end 
bg EEE ee ere fe se eee Be ee Sc Uc eeckacees */ 
/* set_txtpen: Function which returns the location where =) 
fe the next call to drawchar or drawstring will place / 
le that string in the active window. oi 
/* ae pe ep =) 
State 
set_txtpen(pen) 
Point *pen; 
begin 
copypt(WindList[Active_win].Txtpen,pen); 
end 
enn 2 oes eee eee ee ee asd dst eee ane n----- 
/* drawstring: Function which draws the input string into the active 
ih window. Note that at present, the MacIntosh Monaco font is 
ifs used (see the initialization in set_new_window) and the string 
- drawing transfer modes are limited to transparent and xor for 


a the time being. 


State 


drawstring(strptr) 
Char _ strptr[]; 

begin 
Char *newstrpt; 
Char tempstr[250]; 
Int length; 


length = strlen(strptr); 
strcpy(tempstr,strptr); 


*newstrptr = CtoPstr(tempstr); 


MoveTo(WindList[Active_win].Txtpen.h, WindList[Active_win].Txtpen.v); 
DrawString(newstrptr); 


GetPen(&(WindList[ Active_win].Txtpen)); 


end 
i= wise ee i a Sar AN ea * / 
/* drawchar: Function which draws the input character into the active i! 
a window. Note that at present, the MacIntosh Monaco font is sy 
fel used (see the initialization in set_new_window) and the string a 
ihe drawing transfer modes are limited to transparent and xor for 7 
/* the time being. i) 
/* wee wivercle nc wece sewn oe a eS =) 
drawchar(inchr) 
Char _ inchr; 
begin 
MoveTo(WindList[Active_win].Txtpen.h, WindList[ Active_win].Txtpen.v); 
DrawChar(inchr); 
GetPen(&(WindList[ Active_win].Txtpen)); 
end 
[no --sccedee tere oe eee cbc eee */ 
/* get_wchar: Function which returns the width of the characters being ey, 
Vi drawn onto the screen. This function assumes that a MacIntosh a 
a fixed width font (such as Monaco) is used for the interface. 53) 
the et eh ee ee en en ee * / 
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get_wchar() 


begin 
FontInfo info; 
Int height; 
GetFontInfo(&info); 
return(info.widMax); 
end 
EIN rE SR 8 os SEE Poe rad 2k enc */ 
/* get_hchar: Function which returns the width of the Hf 
fe characters being drawn onto the screen. sf | 
Se oo eo nS wena * / 
Int 
get_hchar() 
begin 
FontInfo info; 
Int height; 
GetFontInfo(&info); 
height = info.ascent + info.descent + info.leading; 
return(height); 
end 
Ibs en a Pa alee a */ 
/* close_window: Function which permanently closes the specified V 
iis window anddeallocates its window record. 
Hh i app i RII a a Te a ee an 4 
State 


close_window(Id) 
Window_id Id; 
begin 
Int Recnum; 


/* determine if the window id refers to */ 
/* a declared window ug! 


Available_winf{Id] = 
/* if so, dispose of it a), 


hide_window(ld); 
CloseWindow(WindList[Id].Winhandle); /*user w record storage*/ 
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end 


eee bene ee eee een c eee ee ee cee a ee ee Se ee a | 
/* update_win: Function which sets the system into the update window “i 
/* mode. In this mode, drawing will be limited to the visible region of 
/* of the window to be updated (as identified by the ID number input) oy 
/* to the function. When given an rectangular area to update, the */ 
/* update region will be replaced by this rectangle. Input of an “) 
/* empty rectangle signifies that the update is in responce to a sh | 
/* system generated update event. The programmer should not change i 
/* the rectangle provided with the update event (by the event manager) sa 
/* but pass it on unmodified to this function. *] 
/: wewmawenabdwsecioe oococcecsece ee Bee ee ee on eae cage aa +) 


Bool update_win(ID,Up_rct,Dr_rct) 


Int ID; 
Rect *Upirct,*Drsrcie 


begin 
WindowPtr __ tempport; 
GetPort(&tempport); 
SetPort(WindList{ID].Winhandle); 


/* If the input rectangle is not empty indicating ol 
/* that the user is not responding to a system af 
/* update event, make the input rectangle the oh 


/* update region. 
sf 


if ((EmptyRect(Up_rct)) 
fee 
ValidRect(&(WindList{ID].Workwin)); 
InvalRect(Up_rct); 
end 
if((!EmptyRgn(WindList{ID].Wdefrec.updateRgn)) & & (!Update_in_prog)) 
begin 
copyrect(WindList{ID].Workwin,Dr_rct); 
SetOrigin(WindList{ID].Wholewin.left, 
WindList{ID].Wholewin.top); 
ClipRect(&(WindList[ID].Wholewin)); 
DrawControls(WindList{ID].Winhandle); 
SetOrigin(WindList{ID].Workwin.left, 
WindList[{ID].Workwin.top); 
ChipRect(&(WindList{ID].Workwin)); 
Update_in_prog = TRUE; 
Last_active = Active_win; 
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Active_win = ID; 
BeginUpdate(WindList{ID].Winhandle); 
EraseR gn((*WindList{ID].Winhandle).visRgn); 


retun(TRUE); 
end 
else 
begin 
SetPort(tempport); 
Update_in_prog = FALSE; 
SetRect(Dr_rct,0,0,0,0); 
retumn(FALSE); 
end 
end 
a ll RRR eee */ 
/* next_update: A dummy function in the MacIntosh implementation */ 
ie which always returns FALSE. if 
ere On er ee */ 


Bool next_update(Up_rct,Dr_rct) 


meet. *Up_rct,*Dr_rct: 


— 
SetRect(Dr_rct,0,0,0,0); 
return(FALSE); 
end 
mrtg, ese Ree Ne Pc es. deep cen ccueesteeus */ 
/* end_update: procedure to end the update mode and restore the yi 
/* clip area to match the active (topmost) window. */ 
ili ec = I */ 


State end_update() 


begin 
if(Update_in_prog) 
begin 


EndUpdate(WindList[ Active_win].Winhandle); 
Active_win = Last_active; 
SetPort(WindList{ Active_win].Winhandle); 
Update_in_prog = FALSE; 
end 
end 


/* hscroll: Function which scrolls the content area of the active window 
/* by the number of "pixels" specified by num. If the num is 

/* positive, the region will move to the left, and to the right if 
(negative. 


State hscroll(num,Up_rect) 


101 


Int num; 


Rect *Up eet 
begin 
RenHandle Temprgn; 
SetRect(Up_rect,0,0,0,0); 
if(num != 0) 
begin 
Temprgn = NewRgn(); 
ScrollRect(&(WindList{ Active_win].Workwin),-num,0,Temprgn); 
OffsetRect(&(WindList[ Active_win].Workwin),num,0); 
copyrect(WindList{[Active_win].Workwin,Up_rect); 
if(num > 0) 
(*Up_rect).left = (*Up_rect).nght - num; 
else 
(*Up_rect).right = (*Up_rect).left - num; 
SetOrigin(WindList{ Active_win].Workwin. left, 
WindList[ Active_win].Workwin.top); 
ClipRect(&(WindList[ Active_win].Workwin)); 
DisposeRgn(Temprgn); 
end 
end 
f= nee at Ne De a ee ae) 
/* vscroll: Function which scrolls the content area of the active window ‘| 
/* by the number of "pixels" specified by num. If the num is | 
/* positive, the region will move up,and down if negative. a 
hag www wel esnwee Jose Se Sek Soc oo ee ee wee eee wail 


State vscroll(num,Up_rect) 


Int num; 
Recto) U parcet: 


begin 
RgnHandle Temprgn; 
SetRect(Up_rect,0,0,0,0); 
if(num != 0) 
begin 


Temprgn = NewRgnQ);; 

ScrollRect(&(WindList{ Active_win].Workwin),0,-num, Temprgn); 
OffsetRect(&(WindList[ Active_win].Workwin),0,num); 
copyrect(WindList[Active_win].Workwin,Up_rect); 


if(num > Q) 
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smal acgpamaces. 


(*Up_rect).top = (*Up_rect).bottom - num; 
else 
(*Up_rect).bottom = (*Up_rect).top - num; 


SetOni gin(WindList{ Active_win].Workwin.left, 
WindList[Active_win].Workwin.top); 
ClipRect(&(WindList[Active_win].Workwin)); 


DisposeRgn(Temprgn); 
end 
end 
px nA ae +a AD EO Serie Mc Vinee lol Poe ee a ee tS a * i 
/* get_hscroll: Function which returns the horizontal scroll bar value. / 
ee en es en ate ee eed ee Go eee eke oe eee; * / 
Int get_hscroll() 
aoe 
if ((WindList[Active_win].Parts & W_HSCROLL) > 0) 
return(GetCtl Value(WindList[ Active_win].Hscrhandle)); 
else 
return(- 1); 
end 
is CN See a hn ee wc owe Dee swe neews * / 
/* get_vscroll: Function which returns the vertical scroll bar value. */ 
na CE ES el ce * / 
Int get_vscroll() 
Rei 
if ((WindList[Active_win].Parts & W_VSCROLL) > 0) 
return(GetCtl Value(WindList[Active_win]. Vscrhandle)); 
else 
return(- 1); 
end 
iO vem ewe in ene ee eee eee ewe * / 
/* set_hscroll: Function which sets the value of the horizontal */ 
/* — scroll bar of the active window to the input val. | 
icine Eee ee pp */ 


State set_hscroll(val) 


Int val; 


begin 
if (val < MINSCR) 
val = MINSCR; 
else if (val > MAXSCR) 
val = MAXSCR; 


if (WindList[Active_win].Parts & W_HSCROLL) 
begin 
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SetOrigin(0,0); 

ClipRect(&(WindList[ Active_win].Wholewin)); 

SetCtl Value(WindList[ Active_win].Hscrhandle,val); 

SetOrigin(WindList[Active_win].Workwin.left, 
WindList[Active_win].Workwin.top); 

ClipRect(&(WindList[ Active_win].Workwin)); 


end 
end 
HE ce se es a a ate * / 
/* set_vscroll: Function which sets the value of the vertical scroll */ 
/* bar to the input val. a 
Vhs mmm me ee ee ee ics ee a ee “ad 


State set_vscroll(val) 


Int val; 
begin 

if (val < MINSCR) 
val = MINSCR; 

else if (val > MAXSCR) 
val = MAXSCR:; 

if (WindList[Active_win].Parts & W_VSCROLL) 

begin 
SetOrigin(0,0); 
ClipRect(&(WindList[Active_win].Wholewin)); 
SetCtl Value(WindList[Active_win]. Vscrhandle,val); 
SetOri gin(WindList[ Active_win].Workwin.left, 
WindList[Active_win].Workwin.top); 
ClipRect(&(WindList[ Active_win].Workwin)); 

end 


end 


104 


Ee ASWINI.C ey 

J* ac sateen et ge AS ee *K / 

Window_id  Active_win; 

Winrec WindList MAXNUMREC]; 

Window_id __Last_active; /* index of previous active window */ 

Bool Update_in_prog; /* is update occuring | 
/* array of available record indices */ 

Bool Available_win[MAXNUMWIN]; 

tag <8 IY ah a a wn ed ee *K if 

/* SS 06S) eM ke OO eS *k yf 


State wind_init() 
begin 


Int i 
WindowPtr Wmoe_r; 


GetPort(& Wmer); 


WindListt DESK_WIN].Winhandle = Wmegr; 
WindList{ DESK_WIN}.Parts = 0; 
SetPt(&(WindList{ DESK_WIN].Txtpen),0,0); 


Available_win[0] = false; 
for G=1; i <= MAXNUMWIN; i++) 
Available_winf{i] = true; 


Active_win = DESK_WIN; 
Last_active = DESK_WIN; 
Update_in_prog = false; 


WindList[Active_win].wincol = LTBLACK; 
WindList[Active_win].winpat = SOLID; 
WindList[Active_win].winmode = REPLACE; 


end 
leg ITS ns ee ee cue ececocecees 7) 
[* ED os ee en ke Oe ai 


Bool  get_next_rec(ref) 


Int *ref; 


Int L 


i 1 

while (i <= MAXNUMWIN)& &(!Available_win[i])) 
i++; 

if G > MAXNUMWIN) 
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return(false); 


else begin 
*ref =1; 
return(true); 
end 
end 
ee nN re sn ee ee * i 
/* any_visible: Function which returns TRUE if any user defined */ 
/* window is visible on the screen. i 
Vis eee i i a a a a a eee * / 
Bool  any_visibleQ 
begin 
Int if 
for (I =0; I< MAXNUMWIN; I++) 
begin 
if (! Available_win[I]) 
if (WindList[I].Wdefrec. visible) 
retun(TRUE); 
end 
end 
return(FALSE); 
end 
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if WINDECL.H 
anc 
#include "Asbind1.h" 
typedef struct Winrec 
begin 
WindowRecord Wdefrec; 
WindowPtr Winhandle; 
Rect Wholewin; 
Rect Workwin; 
Bitl6 Parts; 
ControlHandle Hscrhandle; 
ControlHandle Vscrhandle; 
Point iixtpen: 
Mode_id winmode; 
Color_id wincol;: 
Pattern_id winpat; 
end Winrec; 


/* Window record structure (abs spec) i! 


/* Mac window record structure | 
/* Mac window pointer(window Graf port)*/ 
/* Rectangle for work area+ scroll bars */ 
/* top left corner always at (0,0) local af 
/* Rectangle for work area- scrollbars = */ 


/* top left corner in sync with scrolled aif | 
/* picture af 
/* spec for parts included in window | 
/* handle for horizontal scroll bar wi 
/* handle for vertical scroll bar wf 
/* location to draw next text i 
/* drawing transfer mode for window *} 
/* drawing color for window i) 
/* drawing pattern for window zh 
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ie ee se Be ee ee a | 
es ASMENU.C “ai 
/* ee es es ie 0) 
#include "asbind1.h" 

ve em cers es eres ce a aH) 
fies mem eed aoe ease Seette = {be SS ee ud 


State init_menu(filename, barid) 


begin 


Char *filename; 
Int barid; 


Handle — barhand; 
MenuHandle deskhand; 


CtoPstr(filename); 

OpenResFile(filename); 

barhand = GetNewMBar(barid); 

if (barhand != 0) 

begin 
deskhand = GetMenu(DESKMENVU),; 
AddResMenu(deskhand, 'DRVR’); 
SetMenuBar(barhand); 
DrawMenuBar(); 


mini ce ae re * | 
woccbaeeceneceveccsaeeeceseeces sees */ 
item_enable(menunum,itemnum) 

Int menunum,itemnum; 

MenuHandle temphand; 

temphand = GetMHandle(menunum); 
EnableItem(temphand,itemnum); 

seesuscteseideuecesecseeace ota * | 
oeseas on eedoe scene eee ho eee */ 


item_disable(menunum,itemnum) 


Int menunum,itemnum; 


MenuHandle temphand; 
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begin 


begin 


end 


temphand = GetMHandle(menunum); 
DisableItem(temphand,itemnum); 


ee, */ 
ce RTE 2 3 ak ose */ 
item_mark(menunum,itemnum,mark) 
Int menunum,itemnum; 
Bool mark; 
Int i 
MenuHandle temphand; 
if Gtemnum==0) begin 
temphand = GetMHandle(menunum); 
for G= 1;1<=CountMItems(temphand);i++) 
CheckItem(temphand,i,mark); 
end else begin 
temphand = GetMHandle(menunum); 
CheckItem(temphand,itemnum,mark); 
end 
NEM 2c) OOS oe see ee ee ek */ 
ere ee Co) es ee */ 
menu_hilight(menunum,hilight) 
Int menunum; 
Bool = hilight; 
if (hilight) 
HiliteMenu(menunum); 
else 
HiliteMenu(0); 
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#include "Quickdraw.h" 
#include "WindowMgr.h" 
#include "ControlMegr.h" 
#include "MenuMgr.h" 
#include "EventMgr.h" 
#include "FontM gr.h" 


#define begin { 

#define end } 

#define NIL 0 

typedef int Bool; 

typedef int Int; 

typedef char Char; 

typedef long Long; 

typedef unsigned int Buit16; 

#define State void 

#define Void void 

typedef int Pattern_id; 
typedef int Mode_id; 
typedef int Color_id: 
typedef int Window_id; 
#define W_NAME OX0009 
#define W_CLOSE OX0002 
#define W_SIZE 0x0020 
#define W_HSCROLL OxOE00O 
#define W_VSCROLL 0x01C0 
#define INVAL_WIN -] 
#define DESK_WIN 0 
#define MAXNUMWIN q 
#define MAXNUMREC 8 
#define SOLID 1 
#define HEAVYHATCH 2 
#define HATCH 3 
#define LTHATCH 4 
#define EMPTY 5 
#define LTWHITE 0 
#define LTBLACK l 
#define LTRED 2 
#define LTGREEN 3 
#define LTBLUE 4 
#define LTCYAN 5 
#define LTYELLOW 6 
#define LTMAGENTA 7 
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#define DKWHITE 
#define DKBLACK 
#define DKRED 
#define DKGREEN 
#define DKBLUE 
#define DKCYAN 
#define DK YELLOW 
#define DKMAGENTA 
#define REPLACE 
#define TRANSPAR 
#define XOR 
#define REVTRANS 
#define FALSE 
#define TRUE 
#define POINTER(x) 
#define ASMAINO 
typedef struct Evtmsg 
begin 
int ____ type; 
Window_id  winid; 
Rect evrec; 
Point evpoint; 
int scrpart; 
int Scrposn; 
int scrmoved; 
char keystroke; 
int mod; 
int mtitle; 
int mitem; 
end Evtmsg; 
#define EVTTYPE 
#define EVTWINDOW 
#define EVTRECT 
#define EVPOINT 
#define EVTSCRPART 
#define EVTSCRPOSN 
#define EVTSCRMOVE 
#define EVTKEY 
#define EVTMOD 
#define EVTMTITLE 
#define EVTMITEM 
#define REDRAW 
#define TOPPED 
#define CLOSEWIN 
#define SCROLLBAR 
#define MOUSEDOWN 


hWN 


Ox0000 
0x0001 


(int)(x) 


main() 


Message.type 
Message. winid 
Message.evrec 
Message.evpoint 
Message.scrpart 
Message.scrposn 
Message.scrmoved 
Message.keystroke 
Message.mod 
Message.mttle 
Message.mitem 


maWN— © 


—————ee 


#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 


typedef 
#define 


#define 
#define 


#define 
#define 
#define 
#define 


KEYBOARD 
MOUSEUP 
MENUHIT 


V_PAGEUP 
V_PAGEDOWN 
V_ROWUP 
V_ROWDOWN 
H_PAGEUP 
H_PAGEDOWN 
H_ROWUP 
H_ROWDOWN 
V_THUMB 
H_THUMB 


MINSCR 
MAXSCR 


int 
DESKMENU 


RRHEIGHT 
RRWIDTH 


NUL_CHR 
CARR_RET 
BACK_SP 
BLANK 


-—- © COONAN HRWNeR © TON Nn 


#define 
#define 


typedef struct 
begin 

int 
end 
Point; 
typedef struct 
begin 


Point 
Point 


#define 


Rect 


topLeft; 
botRight; 


int Bool; 
Void = /**/ 
State /**/ 


Int; 
Long; 
Char; 


int 
long 
char 


unsigned int 


Bitl6; 


Pattern_id; 
Mode_id; 
Color_id; 
Window_1id; 
Menu_.id; 


int 
int 
int 
int 
int 


W_NAME 
W_CLOSE 
W_SIZE 
W_HSCROLL 
W_VSCROLL 


INVAL_WIN 
DESK_WIN 
MAXNUMWIN 


SOLID 
HEAVYHATCH 
HATCH 
LTHATCH 
EMPTY 


LTWHITE 


Ox0009 
OX0002 
0x0020 
OxOEOO 
OX01CO 


“IO | 


> in WN 
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#define LTBLACK 
#define LTRED 
#define LTGREEN 
#define LTBLUE 
#define LTCYAN 
#define LTYELLOW 
#define LTMAGENTA 
#define DKWHITE 
#define DKBLACK 
#define DKRED 
#define DKGREEN 
#define DKBLUE 
#define DKCYAN 
#define DK YELLOW 
#define DKMAGENTA 
#define REPLACE 
#define TRANSPAR 
#define XOR 
#define REVTRANS 
#include “portab.h" 
#define ASMAINO 
typedef struct Evtmsg 
begin 

int —_—type; 

int winid; 

Rect “sevice: 

Point evpoint; 

int Scrpart; 

int SCIpOSnN; 

int Sscrmoved; 

char keystroke; 

int mod; 

int mtitle; 

int mitem; 
end  Evtmsg; 
extern Evtmsg Message; 
#define EVTTYPE 
#define EVTWINDOW 
#define EVTRECT 
#define EVPOINT 
#define EVTSCRPART 
#define EVTSCRPOSN 
#define EVTSCRMOVE 
#define EVTKEY 
#define EVTMOD 
#define EVTMTTTLE 
#define EVTMITEM 


Won NANABWN 


pach pms 
— © 


pak peek pe pet 
rr & Wb 


hRWN — 


GEMAIN() 


Message.type 
Message. winid 
Message.evrec 
Message.evpoint 
Message.scrpart 
Message.scrposn 
Message.scrmoved 
Message.keystroke 
Message.mod 
Message.mtitle 
Message.mitem 
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I Ss 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 


#define 
#define 
#define 
#define 


REDRAW 
TOPPED 
CLOSEWIN 
SCROLLBAR 
MOUSEDOWN 
KEYBOARD 
MOUSEUP 
MENUHIT 


V_PAGEUP 
V_PAGEDOWN 
V_ROWUP 
V_ROWDOWN 
H_PAGEUP 
H_PAGEDOWN 
H_ROWUP 
H_ROWDOWN 
V_THUMB 
H_THUMB 


MINSCR 
MAXSCR 


NUL_CHR 
CARR_RET 
BACK_SP 
BLANK 


rm WO OonANRWNeE © “SNNA RB WN © 


\O | 

Ox0D 
0x08 
0x20 
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ja DEMO.H (for Demo.c use) 

[¥cBep-------~ 92 eee = 
#define INVALID -] 

#define TESTSBAR 0 /* TREES) 

#define MNDRAW 4 /* OBJECT in TREE #0 */ 
#define ITOUTLN 20 /* OBJECT in TREE #0 */ 
#define ITFILL 21 /* OBJECT in TREE #0 */ 
#define ITRECT 23 /* OBJECT in TREE #0 */ 
#define ITARC90 Ose | /* OBJECT in TREE #0 */ 
#define ITARC180 26 /* OBJECT in TREE #0 */ 
#define ITARC270 25 /* OBJECT in TREE #0 */ 
#define ITRNDRCT 28 /* OBJECT in TREE #0 */ 
#define ITSHAPE 30 /* OBJECT in TREE #0 */ 
#define ITLINE 31 /* OBJECT in TREE #0 */ 
#define MNMODE 5 /* OBJECT in TREE #0 */ 
#define TTREPLCE 33 /* OBJECT in TREE #0 */ 
#define ITTRANS 34 /* OBJECT in TREE #0 */ 
#define ITXOR 35 /* OBJECT in TREE #0 */ 
#define ITREVTR 36 /* OBJECT in TREE #0 */ 
#define MNCOLOR 6 /* OBJECT in TREE #0 */ 
#define ITDARK 38 /* OBJECT in TREE #0 */ 
#define ITLIGHT 39 /* OBJECT in TREE #0 */ 
#define ITBLACK 4] /* OBJECT in TREE #0 *#/ 
#define ITWHITE 42 /* OBJECT in TREE #0 */ 
#define ITRED 43 /* OBJECT in TREE #0 */ 
#define ITGREEN 44 /* OBJECT in TREE #0 */ 
#define ITBLUE 45 /* OBJECT in TREE #0 */ 
#define ITCYAN 46 /* OBJECT in TREE #0 */ 
#define ITYELLOW 47 /* OBJECT in TREE #0 */ 
#define ITMAGENT 48 /* OBJECT in TREE #0 */ 
#define MNPATTRN 7 /* OBJECT in TREE #0 *#/ 
#define ITSOLID 50 /* OBJECT in TREE #0 */ 
#define ITHVYHT 51 /* OBJECT in TREE #0 */ 
#define ITHATCH 52 /* OBJECT in TREE #0 */ 
#define ITLTHAT 53 /* OBJECT in TREE #0 */ 
#define ITEMPTY 54 /* OBJECT in TREE #0 */ 
#define ITELLIP 24 /* OBJECT in TREE #0 */ 
#define DESKMENU 3 /* OBJECT in TREE #0 */ 
#define MNWIN 8 /* OBJECT in TREE #0 */ 
#define ITWIN1 56 /* OBJECT in TREE #0 */ 
#define ITWIN2 Si /* OBJECT in TREE #0 */ 
#define ITWIN3 58 /* OBJECT in TREE #0 */ 
#define ITWIN4 59 /* OBJECT in TREE #0 */ 
#define ITWINS5 60 /* OBJECT in TREE #0 */ 
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#define ITWIN6 61 /* OBJECT in TREE #0 */ 
#define ITWIN7 62 /* OBJECT in TREE #0 */ 
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jz ASPRIM.C ai 
/* nL ee i oy i * / 
#include "asbind.h" 
#include “asprimi.c” 
oe enn ede sees osc bc ee a ee * / 
/* Set_point: given two integers which represent the x andy */ 
hes coordinates (the horizontal and vertical positions of */ 
je the point respectively), the function returns a point. */ 
/* eee twebeeweb ele coe ecu Steen ae 2 Sa eee eee * 
State 
set_point(x,y,pt) 
Int ay, 
Point *pt; 
begin 
pt->h =x; 
pt->v=y; 
end 
i seco ee eee eee we eee cd ees en ob ee eer ae * ii 
/* get_x_coord: Function which returns the horizontal ss 
/* coordinate of the input point pt. | 
Vis sew nas ates cs a ce cs co es i nn * / 
Int 
get_x_coord(pt) 
Point *pt; 
ee 
return (pt -> h); 
end 
/* gc a ae in ae SS * / 
/* get_y_coord: Function which returns the vertical of 
/* coordinate of the input point pt. “al 
hai wwmee cee shu eSeo sen eoe ee cece eo * / 
Int 
get_y_coord(pt) 
Point *pt; 
begin 
retumn(pt -> v); 
end 
| aan eee cee 


/* set_rect: Function which, given two points, determines the smallest 
/* rectangle that those points could define and sets the top left 
/* and bottom right points of the output rectangle r to correspond 
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/*  tothat rectangle. | 
iba pee a eR a sa | 
State 
set_rect(p1,p2,r) 
Point *pl; 
Point *p2; 
Rect *Fr; 
begin 
/* case 1 p2 is to the night and below pl */ 
if (rt_below(p2,p1)) 
assign_rect((p1 -> h),(p1 -> v),(p2 -> h),(p2 -> v),r); 
/* case 2 pl is to the nght and below p2 */ 
else if (tt_below(p1,p2)) 
assign_rect((p2 -> h),(p2 -> v), (pl -> h),(p1 -> v),r); 
/* case 3 pl is to the right and above p2 */ 
else if (rt_above(p1,p2)) 
assign_rect((p2 ->h),(p1 -> v),(p1 -> h),(p2 -> v),r); 
/* case 4 p2 is to the nght and above p1 */ 
else if (rt_above(p2,p1)) 
assign_rect((pl -> h),(p2 -> v),(p2 -> h),(p1 -> v),r); 
end 
> gp Af EP 2S EIR en nN Dp eg yy 2 pO gy yl ee “a7 
/* set_topLeft: Function which returns the top left point of the input “| 
/* rectangle ras p. “aif 
caer eae Nee 2 a eee eno oe tek aueee any) 
State 
set_topLeft(r,p) 
ect = *T; 
Point *p; 
begin 
(p -> h) = (r -> topLeft).h; 
(p -> v) = (r -> topLeft).v; 
end 
Hg a 0S a i ee Se eee wai | 
/* get_botRight: Function which returns the bottom nght point of the 4 
/* input rectangle r as p. oF 
/* i ee a eo * / 
State 
set_botRight(r,p) 
Rect = ‘*r; 
Point *p; 
begin 


(p -> h) = (r -> botRight).h; 
(p -> h) = (r-> botRight).v; 


end 
/* cs cos mm in i re es a a a a =/ 
/* pt_in_rect: Function which determines if the input point p is within ) 
/* oron the border of the input rectangle r. / 
Oo ews wi eo kh ics lev ews Sil eae ae ea * / 

Bool 
pt_in_rect(p,r) 

Pointy’ =p; 

Rect = *r; 
begin 

if ((rt_below(p,&(r -> topLeft))) && Uf_above(p,&(r -> botRight)))) 

return(TRUE); 
else 
retum(FALSE); 

end 
bag ee en PE ee Et ee * / 
/* set_insect_rect: Function which determines the rectangle a | 
/* which is formed by the intersection of the input rectangles rl a 
/* andr2. The resulting rectangle is returned in rint. If the i 
/* intersection is empty, the rectangle returned in rint will be | 
es defined by a top left and bottom night point of (0,0). sf 
kes eee wn veweoe SS eek eee ee ee eee */ 

State 
set_insect_rect(rl,r2,rint) 

Rect Gecr 

Rect *r2; 

Rect *rint; 
begin 


if (insect_rect(rl,r2)) 
begin 
if ((rl -> topLeft).h >= (r2 -> topLeft).h) 
(rint -> topLeft).h = (rl -> topLeft).h; 
else 
(rint -> topLeft).h = (r2 -> topLeft).h; 


if ((rl -> topLeft).v >= (r2 -> topLeft).v) 
(rint -> topLeft).v = (rl -> topLeft).v; 
else 
(rint -> topLeft).v = (r2 -> topLeft).v; 


if ((r1 -> botRight).h <= (r2 -> botRight).h) 
(rint -> botRight).h = (rl -> botRight).h; 
else 
(rint -> botRight).h = (r2 -> botRight).h; 
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if ((rl -> botRight).v <= (12 -> botRight).v) 
(rint -> botRight).v = (rl -> botRight).v; 
else 
(rint -> botRight).v = (r2 -> botRight).v; 
end 


else 
assign_rect(0,0,0,0,rint); 


Bool 
insect_rect(rl ,r2) 

Rect) “rl: 

Rect S12: 


begin 


if (((r1 -> topLeft).h > (r2 -> botRight).h) Il 
((r2 -> topLeft).h > (rl -> botRight).h)) 
retumn(FALSE); 


else if (((rl -> topLeft).v > (12 -> botRight).v) Il 
((r2 -> topLeft).v > (rl -> botRight).v)) 
return(FALSE); 


else 
retumn(TRUE); 


8 aneee ese a Ae ee 
Bool 
equalpt(p1,p2) 
Point *pl; 
Point *p2; 
begin 
if (((p1 -> h) == (p2 -> h)) && ((pl -> v) == (p2 -> v))) 
return(TRUE); 
else 
return(FALSE); 
end 
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/* equalrect: Function which determines if the two input rectangles are 
/* same rectangle. 


[Bo-p nnn one nne nanan -onen-- 50ers e eee ee 
Bool 
equalrect(rl,r2) 
Recher: 
Rect = *r2; 
begin 
if ((equalpt(&(rl -> topLeft),&(r2 -> topLeft))) && 
(equalpt(&(rl -> botRight),&(r2 -> botRight)))) 
return(TRUE); 
else 
return(FALSE); 
end 
[¥ cannes anaes te eee ee 


/* copypt: Function which copies the source point into the destination 
/* point. 


[Ranson coe eee eee oo bo nee bs ee Seeger 
State 
copypt(source,dest) 
Point *source,*dest; 
— 
(*dest).h = (*source).h; 
(*dest).v = (*source).v; 
end 
[¥aecnnete nn scee eee a cata nee eten enon nase ee 


/* copyrect: Function which copies the source rectangle into the 
/* destination rectangle. 


State 
copyrect(source,dest) 


Rect *source,*dest; 


begin 
copypt(&((*source).topLeft),&((*dest).topLeft)); 
copypt(&((*source).botRight),&((*dest). botRight)); 
end 
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ih ASPRIMI.C of 

|e ce pee a PS i ee es PE i Se eer he oe a * / 

ibaa pp ee AS gS ANE | 
/* rt_below: Function which determines whether the point p1 1s to the ay 
/* right of and below the point p2. Note: the larger the h, the st 
/* farther nght the point is and the larger the v the farther i 
/* below the point is. i 
/* nn hc ee re i eee | 

Bool 
rt_below(p1,p2) 


Point *pl; 
Point *p2; 


begin 
if (((pl -> h) >= (p2 -> h)) && ((p1 -> v) >= (p2 -> v))) 
retum(TRUE); 
else 
retumn(FALSE); 
end 
ig eee pep gy gc / 
/* rt_above: Function which determines whether the point p1 is to the sa 
/* right and above point p2. i! 
ike NINES 2 fratello nln oS | ee iw 20 (a en a */ 
Bool 
rt_above(p1,p2) 
Point *pl; 
Point *p2; 
begin 
if (((p1 -> h) >= (p2 -> h)) && (pl -> v) <= (p2 -> v))) 
retun(TRUE); 
else 
return(FALSE); 
end 
/* eI te ALCOR Oc Ciao ke PA el ec eee eee een x) 
/* \f_above: Function to determine if point p1 is to the left and above sal} 
/* point p2. | 
eee eae pd */ 
Bool 
lf_above(p1,p2) 


Point *pl; 
Point *p2; 


if (((pl1 -> h) <= (p2 -> h)) && ((p1 -> v) <= (p2 -> v))) 
retum(TRUE); 
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else 
return(FALSE); 
end 


Bool 
lf_below(p1,p2) 
Point *pl; 
Point) pz; 
begin 
if (((pl -> h) <= (p2 -> h)) && (pl -> v) >= (p2 -> v))) 
return(TRUE); 
else 
return(FALSE); 
end 
| ea a en NN Sc 


/* assign_rect: Function to assign the values of the top left point and 
/* bottom right point of the rectangle r. Warning: the top left 

/* point as determined by xtop and ytop MUST be to the left and 
/* above the bottom right point as specified by xbot and ybot. 

/* This function is provided as a short form rectangle builder for 
/* the implementer only. 


State 
assign_rect(xtop,ytop,xbot, ybot,r) 
Int xtop,ytop,xbot, ybot; 


Rect or 
begin 
(r -> topLeft).h = xtop; 
(r -> topLeft).v = ytop; 
(r -> botRight).h = xbot; 
(r -> botRight).v = ybot; 
end 
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hs ASEVT.C cf | 
/* iN nee a a ee Ok *K / 
State 
get_event() 
begin 
Bool Stop; 
Int outarr[ 4}; 
Int buffer[8]; 
Int tempx; 
Int tempy; 
Int mouseX; 
Int mouseY; 
Int buttonstate; 
Int modifiers; 
Int keybdreturn; 
Int numstroke; 
U_int evvector; 
Stop = FALSE; 
while(!Stop) 
begin 
/* look for a GEM keyboard,button */ 
/* or message event i 
evvector = evnt_multi 
(MU_KEYBD | MU_BUTTON | MU_MESAG, /* keyboard,button,message 
events*/ 

/* single button stroke i) 
0x0001, /* leftmost button ) 
button_flag, /* look for mouse down or up i / 
0x0000, /* return on exit ii 
0, /* empty rect spec wi 
We 
Oy 
UF 
Ox0000, /* return on exit | 
0, /* empty rect spec vi 
O, 

0, 

0, 

ADDR (buffer), /* address of message buffer i | 
17, /* 17/1000 sec delay for a 
00, /* timer event (60 th sec) eh 
&mousexX, /* X mouse position sa 
&mouseyY, /* Y mouse position cy 
&buttonstate, /* button state ay 
&modifiers, /* keyboard modifiers vii 


125 


&keybdreturn, /* unmodified key code a), 
&numstroke); /* number of button strokes a 


/* GEM message event handler _y 


wind_update(1); 
if ((evvector & MU_MESAG) == MU_MESAG) 
begin 

switch (buffer[0]) 

begin 


/* Menu hit event ad | 


case MN_SELECTED: 
begin 


EVTTYPE = MENUHIT; 
EVTMTITLE = buffer[3]; 
EVTMITEM = buffer[4]; 


/* insure only one title hilited*/ 
if (mhilighted > 0) 
menu_tnormal(baraddr,mhilighted, TRUE); 


mhilighted = EVTMTITTLE; 
Stop = TRUE; 
break; 

end; 


/* Redraw event -- give program i 
/* rectangle to redraw 7 


case WM_REDRAW: 
begin 


window!D(buffer[3],a&EVTWINDOW); 

do_rev_map(&(WinlisttEVTWINDOW].Coordmap), 
&buffer[4], &buffer[5]); 

buffer[6] += buffer[4] - 1; 

buffer[7] += buffer[5] - 1; 


EVTTYPE = REDRAW; 
assign_rect(buffer[4],buffer[5],buffer[ 6], 
buffer[7],&EVTRECT); 
Stop = TRUE; 
break; 
end; 


/* Topped event */ 


case WM_TOPPED: 
begin 
window!D(buffer[3],&EVTWINDOW); 
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end; 


do_rev_map(&(WinlisttEVTWINDOW ].Coordmap), 


&mouseX,&mouseY ); 
set_point(mouseX,mouse Y EV POINT); 
EVTTYPE = TOPPED; 

EVTMOD = modifiers; 
Stop = TRUE; 
break; 


/* Close box event 


case WM_CLOSED: 


begin 


end; 


window!D(buffer[3], @EVTWINDOW); 
EVTTYPE = CLOSEWIN; 
Stop = TRUE; 


break; 


/* Scroll bar event where one 
/* of the up or down arrows or 
/* page up or down areas was 
/* selected. 


case WM_ARROWED: 


begin 


end; 


windowID (buffer[3], ZEVTWINDOW); 
EVTTYPE = SCROLLBAR; 


EVTSCRPART = buffer[4]; 


Stop = TRUE; 

break; 
/* Scroll bar event where the sf 
/* user selected the slide (or a) 
/* thumb) for the horizontal si | 
/* scroll bar. | 


case WM_HSLID: 


begin 


end; 


window!D(buffer[3],&EWVTWINDOW); 

EVTTYPE = SCROLLBAR; 

EVTSCRPART = H_THUMB; 

EVTSCRPOSN = buffer[4]; 

EVTSCRMOVE = buffer[4] - 
Winlistt{EVTWINDOW].H_value; 


Stop = TRUE; 

break; 
/* Scroll bar event where the i) 
/* user selected the slide (or +) 
/* thumb) for the vertical a 


heey 


| 


/* scroll bar. ei) 


case WM_VSLID: 

begin 
window!D(buffer[3],EWTWINDOW); 
EVTTYPE = SCROLLBAR; 
EVTSCRPART = V_THUMB; 
EVTSCRPOSN = buffer[4]; 
EVTSCRMOVE = buffer[4] - 

Winlis{[EVTWINDOW}].V_value; 

Stop = TRUE; 
break; 

end; 


/* Change the size of the window */ 
/* if the user has dragged the +) 
/* grow box. 4) 


case WM_SIZED: 
begin 
windowID(buffer[3],h&EWTWINDOW); 
wind_set(buffer[3], WF_CX YWH, buffer[4], 
buffer[5], buffer[6],buffer[7]); 


WinlisttEVWTWINDOW].defX = buffer[4}]; 
WinlisttEVTWINDOW].defY = buffer[5]; 
WinlisttEVTWINDOW].defW = buffer[6); 
WinlisttEVTWINDOW)].defH = buffer[7]; 


wind_get(buffer[3], WF_WX YWH,&buffer[4], 
&buffer[5],&buffer[6],&buffer[7]); 


outarr[O] = buffer[4]; 
outarr[ 1] = buffer[5]; 
outarr[2] = buffer[4] + buffer[6] - 1; 
outarr[3] = buffer[5] + buffer[7] - 1; 


vs_clip(Device, 1 ,outarr); 


break; 
end; 


/* Move the window if the user “21 
/* has dragged the title bar. ey) 
case WM_MOVED: 


begin 
window1D(buffer[3],6&EWVITWINDOW); 
wind_set(buffer[3], WF_CX Y WH, buffer[4], 
buffer[5],buffer[6],buffer[7 ]); 


WinlisttEVITWINDOW}].defX = buffer[4]; 
Winlist]EVTWINDOW].defY = buffer[5]; 
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end 


WinlisttEVTWINDOW].defW = buffer[6]; 
Winhstt|EVTWINDOW].defH = buffer[7]; 


wind_get(buffer[3], WF_WX YWH,&buffer[4], 
&buffer[5],&buffer[ 6],é&buffer[7]); 


outarr[O} = buffer[4]; 
outarr[1] = buffer[5]; 
outarr[2] = buffer[4] + buffer[6] - 1; 
outarr[3] = buffer[5] + buffer[7] - 1; 


vs_clip(Device,1,outarr); 

get_origin(7EVTWINDOW, &tempx,&tempy); 

set_map(&(Winhst{ EVTWINDOW].Coordmap),tempx, 
tempy,outarr[0],outarr[ 1]); 


break; 
end; 


default: break; 
end 


/* Case for mouse down and */ 
/* mouse up events oy 


else if ((evvector & MU_BUTTON) == MU_BUTTON) 


begin 


end 


if (button_flag == LOOKMDOWN) 
begin 
EVTTYPE = MOUSEDOWN; 
button_flag = LOOKMUP; 


end 
else 
begin 
EVTTYPE = MOUSEUP; 
button_flag = LOOKMDOWN; 
end 


EVTMOD = modifiers; 

tempx = wind_find(mouseX,mouseY); 

windowID(tempx, f@EVTWINDOW); 

do_rev _map(&(Winlist[EVTWINDOW]. Coordmap),&mouseX, 
&mouse Y ); 


Stop = TRUE; 
set_point(mouseX,mouseY ,&(EVPOINT)); 
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/* Case forkeyboardevent */ 
else if ((evvector & MU_KEYBD) == MU_KEYBD) 


begin 
EVTTYPE = KEYBOARD; 
EVTKEY = ((Char)(keybdreturn & 0x007F)); 
EVTMOD = modifiers; 
Stop = TRUE; 
evvector = evvector “ MU_KEYBD,; 
end 
wind_update(Q); 
end 
end 
| ee 
/* get_mouse: Function which reports the current location of the cursor 
ibe in the local coordinates of the window specified by Id. 
[¥.~--~----2--=----- == ee 
State 
get_mouse(Id,pt) 
Int Id; 
Point *pt; 
begin 
Int x,y, button,mod; 
graf_mkstate(&x,&y,&button,&mod); 
do_rev_map(&(Winlist[Id].Coordmap),&x,&y); 
set_point(x,y,pt); 
end 
[¥acceestncegen n-nonane nce sd eee 
/* mouse_up: Function which reports of the mouse button is up or not. 
ie Use of this function will cause the event manager to look for 
hg the opposite mouse button state returned by this function. This 
i is analogus to the Mac WaitMouseUp function which unqueues a 
mouse up event if detected. 
[Rassccnncennene ene n enn eee nn eee enn rane 
Bool 
mouse_up() 
begin 


Int x,y, button,mod; 


graf_mkstate(&x,&y,& button,&mod); 
button = button & 0x0001; 


if (!button) 
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button_flag = LOOKMDOWN; 
else 


button_flag = LOOKMUP; 


return(!button); 
end 
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is ASEVTLC a 
[¥-~-----------ndaesecoueecsceeee= == 4 */ 
/* wmenmeceennawewnknneecselee Beene ee ee | 
/* get_origin: Hidden function which returns the x and y coordinates of wk 
hs the top left corner of the work area (in local coordinates). a 
Je eee a a PRY eS ee ee ee 2 | 

State 
get_onigin(Id,x,y) 

Window_id Id; 

Int EXE: 
begin 

(*x) = Winlist{Id].Coordmap. Xorigin; 

(*y) = Winlist[Id].Coordmap. Yorigin; 
end 

she tre ee */ 

/* windowld: Hidden function which matches the input GEM handle to an */ 
hes abstract window id and returns it in the Id parameter. The bi 
jh return indicates whether or not a successful match was made. iF | 
Vis ea ee eee ee a ee ee ee ) 

Bool 
windowID(handle,Id) 

Int handle; 

Window_id *Id; 
begin 

Int I; 

(*ld)=.10: 

I =0Q; 

if (handle == 0) 

hoe 

(*Id) = 0; 
return(TRUE); 

end 

while (I <= 8) 

begin 


if (Alloc_win[T] != 0) 
Bee 


if (Winlist[ Alloc_win[{I]].Winhandle == handle) 
(*Id) = Alloc_win[]]; 
end 
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I++; 
end 


he ld) == 10) 
return(FALSE); 
else 
retum(TRUE); 
end 


iS 











#include "ASBIND1.H" 
#include "machine.h" 
#include "“obdefs.h" 
#include "treeaddr.h" 
#include "gembind.h" 
#include "vdibind.h" 


#include "aswini.c™ 
#include “asmenu.c’™ 


/* set_xfer_mode: function which will set the global mode for drawing 
/* onto the screen. 
j= 

State 
set_xfer_mode(newmode) 


Mode_id newmode; 


begin 
if((newmode < REPLACE) Il (newmode > REVTRANS)) 
newmode = REPLACE; 
vswr_mode(Device,newmode); 
Winlist[ Active_win].winmode = newmode; 
end 
[Rese ee SS eee 


/* set_pattern: Function which sets the pattern to be used to draw 
/* and fill in shapes. 


State 
set_pattern(newpattern) 


Pattern_id newpattern; 


begin 
switch (newpattern) 
begin 


case HEAVYHATCH: 

begin 
vsl_type(Device,2); 
vsf_interior(Device,2); 
vsf_style(Device,7); 
Winlist[ Active_win].winpat = newpattern; 
break; 
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end; 


case HATCH: 

begin 
vsl_type(Device,7); 
vsl_udsty(Device,OxE38E); 
vsf_interior(Device,2); 
vsf_style(Device,5); 
Winlist[ Active_win].winpat = newpattern; 


break; 
end; 
case LTHATCH: 
begin 
vsl_type(Device,3); 
vsf_interior(Device,2); 
vsf_style(Device,2); 
Winlist{Active_win].winpat = newpattern; 
break; 
end; 
case EMPTY: 
begin 
vsl_type(Device,7); 
vsl_udsty(Device,0x0000); 
vsf_interior(Device,0); 
Winlist[Active_win].winpat = newpattern; 
break; 
end; 
default: 
begin 
vsl_type(Device, 1); 
vsf_interior(Device, 1); 
Winlist[ Active_win].winpat = SOLID; 
break; 
end; 
end 
end 
8 sence el ee i: | 
/* set_color: Function which sets the global color for drawing. 7, 
i a cr ee MS le *k / 
State 
set_color(newcolor) 
Int newcolor; 


begin 


if ((newcolor < LTWHITE) || (newcolor > DKMAGENTA)) 


newcolor = LTBLACK; 


vsl_color(Device,newcolor); 
vsf_color(Device,newcolor); 
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vst_color(Device,newcolor); 
Winlist[ Active_win].wincol = newcolor; 
end 


/* sys_init: Function to initialize the Gem system to run the Abstract ei 
/* Specification Interface oh 


State 
sys_init() 


begin 
Int I; 
Int outarr[ 4]; 


outarr[O] = 50; 
outarr[ 1] = 50; 
outarr[2] = 200; 
outarr[3]} = 200; 


ap_id = appl_init(Q); 


if (ap_id < Q) 
begin 

for(I = 0; I< -1; I++) ; 
end 


for (I = 0; I < 10; I++) 
work_inf{I] = 1; 


work_in[10] = 2; 


gem_Device = graf_handle(&hwchar,&hhchar,&hwbox,&hhbox); 
Device = gem_Device; 


v_opnvwk(work_in,&Device,work_out); 
vsf_perimeter(Device,0); 


scrn_form.mp = OxOL; 
graf_mouse(O,MOUSEADDR); 


wind_init(); 


set_xfer_mode(REPLACE); 
set_pattern(SOLID); 
set_color(LTBLACK); 


/* sys_end: Function which returns all allocated resources to the GEM as 
/* system on the end of the program. a 
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State 


sys_end() 


begin 


Int le 

for(I = 0; I< MAXNUMWIN; I++) 
if (Alloc_win[T] != 0) 
bes; 


if (Winlist[ Alloc_win[I}]. Visible) 
wind_close(Winlist[Alloc_win[I]].Winhandle); 


wind_delete(Winlist{ Alloc_win[{I]].Winhandle); 
end 
end 


v_clsvwk(Device); 
appl_exit(); 


end 
[* pl ae TREES SG aye I ie Esa aC * if 
hag pp ag = UN ne gn a * / 
Window_id 
set_new_window(InitRect,Partspec,Title,is_ Visible) 
Rect *InitRect; 
unsigned int Partspec; 
Char *Title; 
Bool is_ Visible; 
begin 
Bool NoErrorFlag; /* no error encountered *) 
Window_id Recnum; /* number of window record alloc ay, 
Int temphand; /* temporary window handle sa 
Long tempaddr; /* temporary address a 
Int haddr; /* high address of title ny 
Int laddr; /* low address of title y 
Int outarr[4]; /* input array to GEM VDI | 
/* get rid of unnecessary specs ot 
Partspec = Partspec & OxFFEB; 
NoErrorFlag = get_next_rec(&Recnum); 
/* if able to allocate window i 


if (! NoErrorFlag) 
retun(INVAL_WIN); 


else 
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begin 


/* GEM defination of window sa 


Winlist{Recnum].Winhandle = wind_create(Partspec, 
0,0,700,700); 
temphand = Winlist{Recnum].Winhandle; 


if (temphand < DESK_WIN) 
be 


dalloc_win(Recnum); 
retun(INVAL_WIN); 


end 


/* Set optional window features */ 
/* Set horizontal scroll bar value */ 


if ((Partspec & W_HSCROLL) > 0) 

begin 
wind_set(temphand,WF_HSLSIZE,-1,0,0,0); 
wind_set(temphand,WF_HSLIDE,0,0,0,0); 
Winlist{Recnum].H_value = 0; 

end 


/* Set vertical scroll bar value */ 


if ((Partspec & W_VSCROLL) > 0) 

begin 
wind_set(temphand,WF_VSLSIZE,-1,0,0,0); 
wind_set(temphand,WF_VSLIDE,0,0,0,0); 
Winlist{Recnum].V_value = 0; 

end 


/* Set Title wal 


if ((Partspec & W_NAME) > 0) 
begin 
haddr = (Int) LHIWD(ADDR(Title)); 
laddr = (Int) LLOWD(ADDR(Title)); 
wind_set(temphand,WF_NAME, laddr,haddr,0,0); 
end 


/* map defination rectangle to */ 
/* desktop coordinates = 


get_gem_rect(InitRect,&(outarr[0]),&(outarr[ 1]),&(outarr[2]), 
&(outarr[3})); 

do_map(&(Winlist[ DESK_WIN].Coordmap),é&(outarr[0}), 
&(outarr[1])); 

set_point(20,20,&(Winlist{[Recnum].txtpen)); 


Winlist{ Recnum].defX = outarr[0]; 
Winlist{ Recnum].defY = outarr[ 1]; 
Winlist{[Recnum].defW = outarr[2]; 
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end 


end 


Winlist| Recnum].defH = outarr[3]; 


/* draw visible windows to See) 
/* and make active 


if (is_Visible == TRUE) 


begin 


end 


else 
begin 


end 


NoErrorFlag = wind_open(temphand,outarr[0],outarr[1], 
outarr[2],outarr[3]); 


wind_get(temphand,WF_WXYWH,&outarr[0],&outarr[ 1], 
&outarr[2],&outarr[3]); 


/* set clip area to window i 
/* content region and whiten */ 


outarr[2] += (outarr[0] - 1); 
outarr[3] += (outarr[1] - 1); 


vs_clip(Device, 1 ,outarr); 


whiterec(outarr); 
Active_win = Recnum; 


set_map(&(Winlist{Recnum].Coordmap),0,0, 


outarr[0],outarr[1]); 
/* set GEM VDI global drawing */ 
/* parameters and record in */ 
/* window record */ 


set_color(LTBLACK); 
set_xfer_mode(REPLACE); 
set_pattern(SOLID); 


/* set the window's drawing uv 
/* parameters 


Winlist[Active_win].wincol = LTBLACK; 
Winlist[ Active_win].winpat = SOLID; 
Winlist[Active_win].winmode = REPLACE; 


Winlist{|Recnum]. Visible = is_ Visible; 


return(Recnum); 
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/* close_window: Function to close and permanently deallocate the 2) 

i specified window. | 

/* ee eee cee ee en teee eee ee ee eee * / 
State 


close_window(Id) 


Window_id Id; 


begin 

Int Recnum; 

for (Recnum = 0; 

((Recnum < MAXNUMWIN) && (Alloc_win[Recnum] != Id)); 
Recnum++); 
if (Recnum >= MAXNUMWIN) 
return; 

hide_window(ld); 

wind_delete(Winlist[Id].Winhandle); 

dalloc_win(Recnum); 
end 
[¥ennnnenencne cnn nnn nle ee eee */ 
/* update_win: Function which sets the system into the update window aa 
/* mode. In this mode, drawing will be limited to the visible region oy 
/* of the window to be updated (as identified by the ID number input) i 
/* tothe function. When given an rectangular area to update, the a 
/* function will return the intersection between that area and one of aN 
/* the rectangles which define the visible area of the window to be sy 
/* updated. a 
[¥onecannnnnenocenenncadeneeeceee eee rr reece */ 


Bool 
update_win(ID,Up_rct,Dr_rct) 


Window_id ID; 


Rect *Up ret Drance 
begin 
Int —— Firstx; /* top left x of first vis rect “i 
Int —_ Firsty; /* top left y of first vis rect “y) 
Int Firstw; /* width of first visible rect */ 
Int _‘ Firsth; /* height of first visible rect ah 
Int —_— outarr[4]; /* GEM VDI input array 7 


/* get first visible rectangle 2) 
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wind_get(Winlist{ID].Winhandle, WF_FIRSTX Y WH,&Firstx,&Firsty,& Firstw, 


&Firsth); 
if ((Firstw > 0) && (Firsth > 0)) 
begin 
/* calculate intersection of */ 
/* visible rectangle and rect to =) 
/* be updated oh 


do_rev_map(&(Winlist{ID].Coordmap),&Firstx,&Firsty); 
Firstw += Firstx - 1; 
Firsth += Firsty - 1; 


Assign_rect(Firstx,Firsty ,Firstw,Firsth,Dr_rct); 
set_insect_rect(Up_rct,Dr_rct,Dr_rct); 


/* set clip area to intersection sal 
/* rectangle and whiten ot | 


get_gem_rect(Dr_rct,&outarr[0],&outarr[1],&outarr[2], 
&outarr[3]); 

do_map(&(Winlist{ID].Coordmap),&outarr[0],&outarr[1]); 

outarr[2] += (outarr[O] - 1); 

outarr[3] += (outarr[1] - 1); 


/* remember which is top window */ 
Last_active = Active_win; 
Active_win = ID; 
activedraw(); 


vs_clip(Device, 1 ,outarr); 
whiterec(outarr); 


/* set GEM update mode */ 


wind_update(1); 
Update_in_prog = TRUE; 


retumn(TRUE); 
end 
else 
return(FALSE); 
end 
ies III = 2s er ee Se ee eee ees eS ee * / 
/* next_update: Function which returns the intersection of the desired si 
/* update area (Up_rct) and the next rectangle in the gem rectangle aa | 
/* list which defines the visible area of a window (output is Dr_rct). | 
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/* A function return of false indicates no more rectangles are left in / 
/* the gem visible rectangle list. | 
fis wee en nose see sbseneee sess ceeeeesee sole ee ee ee ee a 


Bool 
next_update(Up_rct,Dr_rct) 


Rect *Up_rct,*Dr_rct; 


begin 
Int Nextx; /* top leftx of next visrect */ 
Int Nexty; /* top left y of next visrect */ 
Int Nextw; /* width of next visible rect */ 
Int Nexth; /* height of next visible rect */ 
Int —_ outarr[4]; /* GEM VDI input array o) 


if (Update_in_prog) 
begin 


/* get next visible rectangle */ 


wind_get(Winlist[ Active_win].Winhandle, WF_NEXTX YWH,&Nextx, 
&Nexty,&Nextw,&Nexth); 


if ((Nextw > 0) && (Nexth > 0)) 
begin 


/* calculate intersection of yl 
/* visible rectangle and rect to 7 
/* be updated */ 


do_rev_map(&(Winlist[Active_win].Coordmap), 
&Nextx,&Nexty); 

Nextw += Nextx - 1; 

Nexth += Nexty - 1; 


Assign_rect(Nextx,Nexty,Nextw,Nexth,Dr_rct); 
set_insect_rect(Up_rct,Dr_rct,Dr_rct); 


/* set clip area to intersection*/ 
/* rectangle and whiten oy. 


get_gem_rect(Dr_rct, &outarr[0],&outarr[ 1], 
S&outarr[2],&outart[ 3]); 

do_map(&(Winlist[Active_win].Coordmap), 
&outarr[O],&outarr[ 1]); 

outarr[2] += (outarr[O] - 1); 

outarr[3] += (outarr[1] - 1); 

vs_clip(Device, 1 ,outarr); 

whiterec(outarr); 


retum(TRUE); 
end 
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else 


retum(FALSE); 
end 
else 
return(FALSE); 

end 
Vhs a Es ol EAC *k / 
/* end_update: procedure to end the update mode and restore the clip = 
/* area to match the active (topmost) window. al 
/* pe ee EE a ry PRs nd ey eR * / 

State 


end_update() 


begin 
Int outarr[4]; 


if (Update_in_prog) 
Res 


Active_win = Last_active; 
wind_get(Winlist[Active_win].Winhandle, 
WF_WXYWH, &outarr[0],&outarr[ 1],&outarr[2],&outarr[3]); 


outarr[2] += (outarr[O] - 1); 
outarr[3] += (outarr[1] - 1); 
vs_clip(Device, 1,outarr); 
activedraw(); 
wind_update(0); 
Update_in_prog = FALSE; 


end 
end 
‘ha On Rn 2 eh Nc Ne ee ee ee ee = 
/* Note for all drawing routines: mouse is hidden during all drawing “| 
/* routines to prevent unwanted interaction between the drawing 7, 
/* being done and the mouse buffer which is used to save and restore */ 
/* the backround behind the mouse. oh 
y* i gD ND ee */ 
i aU Se 2s. */ 
/* drawline: Function which draws a line in the currently active window. */ 
/* Input coordinates are relative to the top left hand corner of the a 
/* active window. a 
yf eye eyiyeth he TS a Ee ee eee ee eer sai | 

State 


drawline(St_pt,End_pt) 


Point *St_pt,*End_pt; 
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begin 
Int 


outart[4]; 


if (!equalpt(St_pt,End_pt)) 
pee 


gin 


outarr[O] = (St_pt -> h); 
outarr[1] = (St_pt -> v); 
outarr[2] = (End_pt -> h); 
outarr[3] = (End_pt -> v); 


do_map(&(Winlist[Active_win].Coordmap),&outarr[0],&outarr[1]); 
do_map(&(Winlist[ Active_win].Coordmap),&outarr[2],&outarr[3]); 


graf_mouse(HIDEMOUSE,MOUSEADDR); 
v_pline(Device,2,outarr); 
graf_mouse(SHOWMOUSE,MOUSEADDR); 


end 
end 
= i ee ee cba cee cee ee eee eS See ee ee ee E * / 
/* drawrect: Function to draw the outline of a rectangle in the active ‘i 
/* window. The coordinates of the input rectangle are asumed to be i 
/* relative to the top left corner of the active window's work area. ig)! 
/* wma wm encaueacdeneccecoddsennmucenouedase lene ee 2k / 
State 


drawrect(In_rect) 


Rect 


begin 
Int 


*In_ rect; 


outarr[ 10]; 


if (!tequalpt(&((*In_rect).topLeft),&((*In_rect).botRight))) 
begin 


outarr[O] = (*In_rect).topLeft.h; 
outarr[1] = (*In_rect).topLeft.v; 
outarr[4] = (*In_rect).botRight.h - 1; 
outarr[5] = (*In_rect).botRight.v - 1; 


do_map(&(Winlist[Active_win].Coordmap),&outarr[0],&outarr[1]); 
do_map(&(Winlist[Active_win].Coordmap),&outarr[4],&outarr[5]); 


outarr[2] = outarr[4]; 
outarr[3] = outarr[ 1]; 
outarr[6] = outarr[0]; 
outarr[7] = outarr[5]; 
outarr[8] = outarr[0]; 
outarr[9] = outarr[ 1]; 
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graf_mouse(HIDEMOUSE,MOUSEADDR); 
v_pline(Device,5,outarr); 
graf_mouse(SHOWMOUSE,MOUSEADDR); 
end 
end 


/* drawellipse: Function which draws an ellipse within the area of the 
/* active window specified by the input rectangle. The coordinates 
/* of the input rectangle are assumed to be relative to the top left 

/* corner of the work area of the active window. 


State 
drawellipse(In_rect) 


eet) "In rect: 

begin 
Int x_ctr,y_ctr,x_rad,y_rad; 
Int tempp,tempxfer; 


if equalpt(&((*In_rect).topLeft),&((*In_rect).botRight))) 
begin 


polar_coord(In_rect,&x_ctr,&y_ctr,&x_rad,&y_rad); 


do_map(&(Winlist[Active_win].Coordmap),&x_ctr,&y_ctr); 


graf_mouse(HIDEMOUSE,MOUSEADDR); 

v_ellarc(Device,x_ctr,y_ctr,x_rad,y_rad,0,3600); 

graf_mouse(SHOWMOUSE,MOUSEADDR); 
end 


/* drawarc: Function which draws an elliptical arc between the two 
/* input angles (begang and endang) specified and within the 

/* rectangular area of the active window specified. The input 

/* rectangle is assumed to be relative to the top left corner of the 
/* work area of the active window. Angles are reversed to force 
/* correspondence with Mac. 


aN i a ee os ete eee eek ct --- ~~ 
State 

drawarc(R,begang,endang) 
Rect *R; 
Int begang,endang; 

begin 


Int X_ctr,y_ctr,x_rad,y_rad; 
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if (tequalpt(&((*R).topLeft),&((*R).botRight))) 


begin 
polar_coord(R,&x_ctr,&y_ctr,&x_rad,&y_rad); 
do_map(&(Winlist[ Active_win].Coordmap),&x_ctr,&y_ctr); 
map_angle(&begang); 
map_angle(&endang); 
graf_mouse(HIDEMOUSE,MOUSEADDR), 
v_ellarc(Device,x_ctr,y_ctr,x_rad,y_rad,endang, begang); 
graf_mouse(SHOWMOUSE,MOUSEADDR), 
end 
end 
y Re ee I a nae ea * / 
/* drawrndrect: Function which draws the outline of a rounded rectangle */ 
/* within the specified rectangular area of the active window. 7h 
/* meme eee ee seen eo ed Soe woe a eee eee ne ee en ee ee * / 
State 


drawrndrct(In_rect) 
Rect *lIn_rect; 


begin 
Int outarr[4]; 
if (!equalpt(&((*In_rect).topLeft), &((*In_rect).botRight))) 
begin 


outarr[O] = (*In_rect).topLeft.h; 
outarr[1] = (*In_rect).topLeft.v; 
outarr[2] = (*In_rect).botRight.h - 1; 
outarr[3] = (*In_rect).botRight.v - 1; 


do_map(&(Winlist[ Active_win].Coordmap),&outarr[0], &outarr[1]); 
do_map(&(Winlist[ Active_win].Coordmap),&outarr[2],&outarr[3]); 


graf_mouse(HIDEMOUSE,MOUSEADDR); 
v_rbox(Device,outarr); 
graf_mouse(SHOWMOUSE,MOUSEADDR); 


end 
end 
js sn ee es aor a we es re es eS ee ee ee ee oy 
/* fillrect: Function which draws a pattern within the specified | 
/* rectangular area of the active window. ag 
Ke a eee U9 | 
State 


fillrect(In_rect) 
Rect *In_rect; 


begin 
Int outarr[ 4]; 


if (fequalpt(&((*In_rect).topLeft),&((*In_rect).botRight))) 
begin 


outarr[O] = (*In_rect).topLeft.h; 
outarr[1] = (*In_rect).topLeft.v; 
outarr[2] = (*In_rect).botRight.h - 1; 
outarr[3] = (*In_rect).botRight.v - 1; 


do_map(&(Winlist[Active_win].Coordmap),&outarr[0],&outarr[1]); 
do_map(&(Winlist[Active_win].Coordmap),&outarr[2],&outarr[3]); 


graf_mouse(HIDEMOUSE,MOUSEADDR); 
vr_recfl(Device,outarr); 
graf_mouse(SHOWMOUSE,MOUSEADDR); 


end 
end 
/* IN a 5a <i | eg ee ee ee ee 2k / 
/* fillrndrect: Function which fills the outline of a rounded rectangle i 
/* within the specified rectangular area of the active window. ah 
Ih a epee ccs epee al ag a a a ea ee * / 
State 


fillrndrct(In_rect) 
Rect *In_rect; 


begin 
Int outarr[ 4]; 
if (lequalpt(&((*In_rect).topLeft),&((*In_rect).botRight))) 
begin 
outarr[O] = (In_rect -> topLeft).h; 
outarr[ 1] = (In_rect -> topLeft).v; 


outarr[2] = (In_rect -> botRight).h - 1; 
outarr[3] = (In_rect -> botRight).v - 1; 


do_map(&(Winlist[Active_win].Coordmap), &outarr[0], &outarr[1]); 
do_map(&(Winlist[ Active_win].Coordmap),&outarr[2],&outarr[3]); 


graf_mouse(HIDEMOUSE,MOUSEADDR); 
v_rfbox(Device,outarr); 
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graf_mouse(SHOWMOUSE,MOUSEADDR); 


end 
end 
ME ne en cc ea a a k / 
/* fillellapse: Function which fills an ellipse within the area of the a) 
/* active window specified by the input rectangle. The coordinates “/ 
/* of the input rectangle are assumed to be relative to the top left */ 
/* comer of the work area of the active window. 3 
ie a ee aa ne ee ee ee ne * / 
State 


fillellipse(In_rect) 


Rect *In_rect; 


begin 
Int x_ctr,y_ctr,x_rad,y_rad; 
if (lequalpt(&((*In_rect).topLeft),&((*In_rect).botRight))) 
begin 
polar_coord(In_rect,&x_ctr,&y_ctr,&x_rad,&y_rad); 
do_map(&(Winlist[ Active_win].Coordmap),&x_ctr,&y_ctr); 
graf_mouse(HIDEMOUSE,MOUSEADDR); 
v_ellipse(Device,x_ctr,y_ctr,x_rad,y_rad); 
graf_mouse(SSHOWMOUSE,MOUSEADDR); 
end 
end 
1 ere er ete wie ee ww es eo a * / 
/* fillarc: Function which fills an elliptical arc between the two a) 
/* input angles (begang and endang) specified and within the tl 
/* rectangular area of the active window specified. The input / 
/* rectangle is assumed to be relative to the top left corner of the */ 
/* work area of the active window. Angles are reversed in the GEM 7 
/* function call to force correspondence to Mac. | 
|, mEnnnnnnnnNEEM rene sbtcie ll 11) (Cir */ 
State 


fillarc(R begang,endang) 


Keet oR: 
Int be gang,endang; 
begin 
Int x_ctr,y_ctr,x_rad,y_rad; 
if (!equalpt(&((*R).topLeft),&((*R).botRight))) 
begin 
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polar_coord(R,&x_ctr,&y_ctr,&x_rad,&y_rad); 
do_map(&(Winlist[ Active_win].Coordmap),&x_ctr,&y_ctr); 


map_angle(&begang); 

map_angle(&endang); 
graf_mouse(HIDEMOUSE,MOUSEADDR); 
v_ellpie(Device,x_ctr,y_ctr,x_rad,y_rad,endang,begang); 
graf_mouse(SHOWMOUSE,MOUSEADDR); 


end 
end 
yn NIN asin Se ee ea ee ee es 2 Se ee cub atn 3 | 
/* activate_win: Function which causes the specified window to become es 
/* the active window. It causes any window (but the desktop with a sa 
/* id number of 0) to be moved to the top and a new backround will a 
/* be drawn in, however, the contents will not be automatically “7 
/* redrawn. ri 
ih fll TI ey eg ey ct ee 04 | 
State 


activate_win(ID) 
Window_id ID; 


begin 


Int outarr[4}; /* input to GEM VDI wd 


if (!((ID == Active_win)) 


begin 


if (ID >= DESK_WIN)) 


begin 


/* if not the desktop, bring */ 
/* specified window totop = */ 


if(ID >= 1) && (ID <= MAXNUMREC)) 
begin 
graf_mouse(HIDEMOUSE,OXOL); 
wind_set(Winlist[ID].Winhandle,WF_TOP,0,0,0,0); 
end 


/* set clip area to content area sf 
Active_win = ID; 
wind_get(Winlist{ID].Winhandle, WF_WX YWH,&outarr[0], 
&outarr[ 1],&outarr[2],&outarr[3]); 


outarr[2] += (outarr[0] - 1); 
outarr[3] += (outarr[1] - 1); 


vs_clip(Device, | ,outarr); 
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if (ID >= 1) && (ID <= MAXNUMREC)) 


graf_mouse(SHOWMOUSE,OXOL); 


activedraw(); 
end 
end 
end 
Vf we mnn men cbteeeumoeccusencuceeuce sole ecee so see ee ee eee | 
/* hscroll: Function which scrolls the content area of the active window a 
/* by the number of "pixels" specified by num. If the num is oi) 
/* positive, the region will move to the left, and to the nght if */ 
/* negative. i 
is sy sn esc ene ib ces ek eter es em meee sa | 
State 
hscroll(num,Up_rect) 
Int num; 
Recis “*Wiperect: 
begin 
Int X; /* top left x of content area = */ 
Int be /* top left y of content area = */ 
Int W; /* width of content area of 
Int 4H; /* height of content area a! 
Int outarr[ 8]; /* output to GEM VDI bit copy fcn ath, 
Int whtarr[4]; /* GEM VDI rectangle to whiten 
if ({(num == 0)) 
begin 
/* set to scroll the content area a) 
/* left and whiten the vacated */ 
/* rectangle a | 
if (num > 0) 
begin 


wind_get(Winlist[ Active_win].Winhandle, 


WF_WXYWH,&X,&Y,&W,&H); 


outarr[O] = X + num; 
outarr[1] = Y 
outarr[2] =X +W- 1; 
outarr[3] = Y+H- 1; 
outarr[4] = 

outarr[5] = Y 
outarr[6] = X + W - 1 -num; 
outarr[7] = Y +H - 1; 
whtarr[0] = outarr[6]; 
whtarr[ 1] = outarr[ 1]; 
whtarr[2] = outarr[2]; 
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whtart[ 3] = outarr[3]; 


end 
/* set to Scroll the content area if 
/* right and whiten the vacated | 
/* rectangle iF 
if (num < QO) 
begin 
wind_get(Winlist[Active_win].Winhandle, 
WFE_WAYWH,&X,&Y,&W,&H); 
outarr[O] = X; 
outarr[1] = Y; 
outarr[2] = X + W-1+num; 
outarr[3] = Y+H- 1; 
outarr[4] = X - num; 
outart[5] = Y; 
outarr[6] = X + W - 1; 
outarr[7] = Y +H - 1; 
whtarr[O] = outarr[0]; 
whtart[ 1] = outarr[ 1]; 
whtarr[2] = outarr[4]; 
whtarr[3] = outarr[3]; 
end 


/* bit copy to scroll aH 


graf_mouse(HIDEMOUSE,0XOL); 
vro_cpyfm(Device,3,outarr,&scrn_form,&scm_form); 
graf_mouse(SHOWMOUSE,OXOL); 
translate_onigin(Active_win,num,0); 


whiterec(whtarr); 
end 
else 
for(X =0; X < 4; X++) 
whtarr[X] = 0; 
/* assign the rect to be updated | 
/* in window local coord | 


do_rev_map(&(Winlist[ Active_win].Coordmap),& whtarr[0],&whtarr[1]); 
do_rev_map(&(Winlist[ Active_win].Coordmap),&whtarr[2],&whtarr[3]); 


assign_rect(whtarr[0],whtarr[ 1],whtarr[2],whtarr[3],Up_rect); 


end 

/* ye nya lel Se ee oo sad | 
/* vscroll: Function which scrolls the content area of the active window i | 
/* by the number of "pixels" specified by num. If the num is ay 
/* positive, the region will move up,and down if negative. */ 
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vscroll(num,Up_rect) 


begin 


State 


Int num; 
Rect *Upirece 
Int X; /* top left x of content area = */ 
Int Y; /* top left y of content area = */ 
Int W: /* width of content area i 
Int H; /* height of content area */ 
Int outarr[8]; /* output to GEM VDI bit copy fen */ 
Int whtarr[4]; /* GEM VDI rectangle to whiten i) 
if (((num == Q)) 
begin 
/* set to scroll the content area 7 
/* up and whiten the vacated */ 
/* rectangle */ 
if (num > OQ) 
begin 
wind_get(Winlist[Active_win].Winhandle, 
WE_WXYWH,&X,&Y,& W,&H); 
outarr[O] = X; 
outarr[ 1] = Y + num; 
outarr[2] = X + W - 1; 
outarr[3] = Y +H - 1; 
outarr[4] = X; 
outarr[5] = Y; 
outarr[6] = X + W - 1; 
outarr[7] = Y +H - 1 - num; 
whtarr[O] = outarr[0]; 
whtarr[ 1] = outarr[7]; 
whtarr[2] = outarr[2]; 
whtarr[3] = outarr[3]; 
end 
/* set to scroll the content area yh 
/* down and whiten the vacated xy 
/* rectangle i) 
if (num < 0) 
begin 


wind_get(Winlist[Active_win].Winhandle, 
WFE_WXYWH,&X,&Y,&W,&H); 

outarr[O] = X; 

Outram | — 1. 

outarr[2] = X + W - 1; 

outarr[3] = Y +H-1+num; 

outarr[4] = X; 
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outarr[5] = Y - num; 
outarr[6] = X + W - 1; 
outarr[7] = Y +H - 1; 
whtarr[Q] = outarr[0]; 
whtart[1] = outarr[1]; 
whtarr[2] = outarr[2]; 
whtart[3] = outarr[5]; 
end 


/* bit copy to scroll | 


graf_mouse(HIDEMOUSE,0XOL), 
vro_cpyfm(Device,3,outarr,&scrn_form,&scrn_form); 
graf_mouse(SHOWMOUSE,OXOL); 
translate_origin(Active_win,0,num),; 


whiterec(whtarr); 
end 
else 
for(X =0; X < 4; X++4) 
whtarr[X] = 0; 
/* assign the rect to be updated if | 
/* in window local coord Hh 


do_rev_map(&(Winlist[ Active_win].Coordmap),&whtarr[0],&whtarr[ 1]); 
do_rev_map(&(Winlist[ Active_win].Coordmap),&whtarr[2],&whtarr[3]); 


assign_rect(whtarr[0],whtarr[1],whtarr[2], 
whtarr[3],Up_rect); 


end 
NN oe ee eo See ete St eee sae ee-+- */ 
/* set_hscroll: Function which sets the value of the horizontal scroll */ 
/* bar of the active window to the input val. | 
Tha It sot ac shoe, ce en or as. A eee eet oe ee Aa Ae POAT ie ht =) 
State 
set_hscroll(val) 
Int val; 
begin 
if (val < 0) 
val = 0; 
if (val > 1000) 
val = 1000; 


wind_set(Winlist[ Active_win].Winhandle, WF_HSLIDE,val,0,0,0); 
Winlist[Active_win].H_value = val; 


| a) 





ibe wim mmm wu madddsa nese dooddiiccocdccccccdccedssoeeee ee eee | 
/* set_vscroll: Function which sets the value of the vertical scroll bar a 
/* to the input val. i) 
/* ee te ee me Sk sn en a ees * / 

State 
set_vscroll(val) 

Int val; 
begin 

if (val < QO) 

val = 0; 


if (val > 1000) 
val = 1000; 


wind_set(Winlist{[ Active_win].Winhandle,WF_VSLIDE,val,0,0,0); 
Winlist{ Active_win].V_value = val; 


end 
/* a ee oe eh oe ee x / 
/* get_hscroll: Function which returns the horizontal scroll bar value. if! 
/* ne ee ee eer eRe ee ee eee MO ee - / 
Int 
get_hscrollQ 
begin 
return(Winlist{Active_win].H_value); 
end 
8 renee an ccc ee */ 
/* get_vscroll: Function which returns the vertical scroll bar value. yi! 
MC a Sa a an a I a a a * / 
Int 
get_vscroll(val) 
begin 
return(Winlist[Active_win].V_ value); 
end 
/* bmbcdccoentmtaencomccddows enews oe Ses a eee * / 
/* hide_window: Function which removes the specified window from the */ 
/* — screen without deallocating it. ay 
|; anna 2 2 OA ee ee. a o- #/ 
State 
hide_window(Id) 
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Window_id Id; 
begin 
Int temphandle; 
if (Winlist[Id]. Visible && (Id != DESK_WIN)) 


begin 
wind_close(Winlist{Id].Winhandle); 
Winlist{Id]. Visible = FALSE; 
if Id == Active_win) 
begin 
wind_get(0,WF_TOP,&temphandle,0,0,0); 
windowID(temphandle,&Active_win); 
activate_win(Active_win); 
end 
end 
end 
haa ee nat eh 8) NE 88 = 0 oe ot ee eee *K 


/* show_window: Function which draws an invisible but previously defined*/ 
/* window onto the screen. This window becomes the active window. */ 


State 
show_window(Id) 


Window_id Id; 
begin 
Int outarr[ 4]; 
if ((!Winlist[Id]. Visible) && (Id != DESK_WIN)) 
Pe wind_open(Winlist[Id].Winhandle, Winlist[Id].defx, 
Winlist{Id].defY ,Winlist[Id].defW,Winlist[Id].defH); 


Winlist[Id]. Visible = TRUE; 
activate_win(Id); 


end 
end 
lea ee eee, a ga pt cere Oa * / 
/* get_active: Function which returns the identifier of the active ay 
/* window. = / 
i eee yor Shape ey 5 a ag * / 
Window_.id 


get_active() 


begin 
return(Active_win); 
end 


is 
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Color_id 
get_color() 


begin 
return(Winlist{ Active_win].wincol); 


/* get_mode: Function which returns the identifier of the drawing trans- 
iba fer mode. 


Mode_id 
get_xfer_mode() 
begin 
return(Winlist[Active_win].winmode); 


je pattern. 

[Roo hoes 
Pattern_id 

get_pattern() 

begin 
return(Winlist[Active_win].winpat); 

end 

|, a EUROPE 

/* txtpen: Function which sets the location of the next character to 

rhe be drawn in the active window (location of text pen in window 

US local coordinates). 

[Ro oec ees be on oo ne soe ees ce 
State 

txtpen(inpt) 


Point *inpt; 


copypt(inpt,&(Winlist[ Active_win].txtpen)); 


/* set_txtpen: Function which returns the location of the text pen for 
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---*/ 


ei) 


ifs the currently active window (in window local coordinates). =) 


Higa NT etn ee el eb Sand Slee eeesl “a 
State 


set_txtpen(pen) 


Point *pen; 


i 
copypt(&(Winlist[ Active_win].txtpen),pen); 
end 
esc eg Seg ee ee pe ne eee */ 
/* drawstring: Function which draws a string into the active window at =) 
fe the current location of its text pen. */ 
/* IER ee 8s oO ee ae ee ee * / 
State 
drawstring(strptr) 
Char *strptr; 
begin 
Int X,Y; 
Int extent[8]; 
x = Winlist[Active_win].txtpen.h; 
y = Winlist[Active_win].txtpen.v; 
do_map(&(Winlist[Active_win].Coordmap),&x,&y); 
graf_mouse(}HIDEMOUSE,MOUSEADDR); 
v_gtext(Device,x,y,strptr); 
graf_mouse(SSHOWMOUSE,MOUSEADDR); 
vqt_extent(Device,strptr,extent); 
Winlist[Active_win].txtpen.h += extent[2]; 
end 
/* ay yey ap py hap ieee a, sie a ye 0 Pe A yl * 
/* drawchar: Function which draws a character at the current location of a | 
i the active window's text pen. oi} 
hg pe peyeyeseypp npg SS TR ig) CP ce an * / 
State 
drawchar(inchr) 
Char inchr; 
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begin 


Char  outstr[2]; 
Int X,Y; 
Int extent[8]; 


if (Winlist{Active_win].winmode != XOR) 
vswr_mode(Device, TRANSPAR); 


outstr[O] = inchr; 
outstr[1] = NUL_CHR; 


x = Winlist[Active_win].txtpen.h; 

y = Winlist[Active_win].txtpen.v; 
do_map(&(Winlist[Active_win].Coordmap),&x,&y); 
graf_mouse(HIDEMOUSE,MOUSEADDR); 
v_gtext(Device,x,y,outstr); 
geraf_mouse(SSHOWMOUSE,MOUSEADDR); 
vqt_extent(Device,outstr,extent); 


Winlist[Active_win].txtpen.h += extent[2]; 


if (Winlist{[ Active_win].winmode != XOR) 


vswr_mode(Device, Winlist[Active_win].winmode); 


/* get_wchar: Function which returns the current character width. 


[Pasa an ee ee 


Int 


get_wchar() 


begin 


end 


return(hwchar); 
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Int 


get_hchar() 


begin 


end 


return(hhchar); 
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/* Module global data declarations -- These variables are required to 
/* be global to allow linkage with the GEM driver modules. 


/* Local data declarations of data structures to be hidden fromthe */ 


Int contrl[ 12]; 

Int intin[ 128]; 

Int ptsin[128}]; 

Int intout[ 128); 

Int ptsout[ 128]; 

i) user. 

stauc Int hwchar; 

Static Int hhchar; 

Static Int hwbox; 

Static Int hhbox; 

static Int work_in[{11]; 

static Int work_out[57]; 

static Int ap_id; 

static Int Device; 

Static Int gem_Device; 

typedef struct Map 

begin 
Int Xorigin; 
Int Yorigin; 
Int Xreal; 
Int Yreal; 

end 

Map; 

typedef Struct Winrec 

begin 
Int Winhandle; 
Map Coordmap; 
Int H_value; 
Int V_value; 
Bool Visible; 
Int defX; 
Int defY; 
Int defW; 
Int defH; 
Point txtpen; 
Mode_id winmode; 
Pattern_id winpat, 
Color_id wincol; 

end 


/* width of a character 

/* height of a character 

/* width of a character box 

/* height of a character box 

/* GEM open v workstation input 
/* GEM open v workstation output 
/* GEM appilication id 


/* handle for GEM virtual screen 
/* handle for GEM screen 


/* type defination of global to 
/* window local coordinate map 
/* horiz window origin 

/* vert window origin 

/* horiz real screen coord 

/* vert real screen coord 


/* window record structure 


/* GEM window handle 

/* global to local map 

/* current horiz scroll value 
/* current vert scroll value 
/* is window visible on screen 
/* global x of entire window 
/* global y of entire window 
/* width of entire window 
/* height of entire window 
/* location to draw next txt 
/* window drawing mode 
/* window drawing pattern 
/* window color 


jus 


a 
sd) 


Winrec; 


/* records for windows + desk */ 
static Winrec Winlist| MAXNUMREC]; 


/* array of available record indeces */ 
static Window_id Available_win[MAXNUMWIN]; 


/* array of allocated record indexes */ 
static Window_id Alloc_win[MAXNUMWIN]}; 


static Window_id  Active_win; /* index of active window | 
static Window_id  Last_active; /* index of previous active window */ 
static Bool Update_in_prog;/* is update occuring ) 
staic MFDB scm_form,; /* GEM bit block str for screen */ 
static U_int button_flag; /* flag to determine whether to “ii 
/* look for mouse up or down yf) 

static Long baraddr; /* address of the GEM menu bar “a 
Static Int mhilighted; /* object index of hilighted menu | 
Evtmsg Message; /* event message for user / 


#include "asevti.c” 
#include "asevt.c" 


Vb ee mre we wi ee ewe bch ee ee * i 
/* init_alloc_str: Function to initialize the structures (Available_win */ 
/* and Active_win) used to keep track of window records available to =) 
: be allocated and already allocated. a 
Kee eee ee ee eee oe en Se ge eee / 
State 
init_alloc_str() 
begin 
Int I; 
for (I = 0; I< MAXNUMWIN; I++) 
begin 


Available_win[I] =I + 1; 
Alloc_win{T] = 0; 


end 
end 
| OS */ 
/* wind_init: Function to initialize the record for the desktop window “ii 
/* and set it to be the initial active window. wi 
PP racacencene ne secede ene so~ accede ea */ 
State 
wind_init() 
begin 


Bool NoErrorFlag; 
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Int} X,Y,W,H,outarr[ 4]; 
Point tmppoint; 


Winlist}t DESK_WIN].Winhandle = DESK_WIN; 


NoErrorFlag = wind_get(DESK_WIN,WF_WXYWH,&X,&Y,&W,&H); 


/* set desktop coordinate map */ 
Winlistt DESK_WIN].Coordmap.Xorigin = 0; 
Winlist{ DESK_WIN].Coordmap. Y origin = 0; 
Winlist] DESK_WIN].Coordmap.Xreal = X; 
Winlistt DESK_WIN].Coordmap. Yreal = Y; 


Winlist] DESK_WIN]. Visible = TRUE; 
/* set defination coordinates and clip rectangle */ 


Winlist], DESK_WIN].defX = X; 
Winlist] DESK _WIN].defY = Y; 
Winlist}, DESK_WIN].defW = W;; 
Winlist], DESK_WIN].defH = H; 
outarr[O] = X; 

outarr[1] = Y; 

outarr[2] = W + X - 1; 

outarr[3] =H+ Y - 1; 


vs_clip(Device, | ,outarr); 
set_point(0,0,&(Winlist{ DESK_WIN].txtpen)); 


init_alloc_strQ; 

Active_win = 0; 

Last_active = Q; 
Update_in_prog = FALSE; 
button_flag = LOOKMDOWN; 


mhilighted = 0; 
end 
/* SOIT ee I ee a ee ee * / 
/* activedraw: Function to set the global drawing parameters of the GEM = */ 
/* VDI to those of the drawing window. 
Ia a a ao eee cd w--------- */ 
State 
activedraw() 
begin 
set_pattern(Winlist[ Active_win].winpat); 
set_color(Winlist{ Active_win].wincol); 
set_xfer_mode(Winlist[Active_win].winmode); 
end 
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/* get_gem_rect: Hidden function to give the x and y coordinates of the | 


/* top left corner of an ‘abstract’ rectangle along with its width xs 
/* and height. pil! 
fil mewewncnnnauentedeus ceueueccesceddoeecundeeseee ee a */ 
State 
get_gem_rect(R,X, Y,W,H) 
Rect *R; 
Int aT Yt Weer 
begin 
(*X) = (R -> topLeft).h; 
(*Y) = (R -> topLeft).v; 
(*W) = (R -> botRight).h - (R -> topLeft).h + 1; 
(*H) = (R -> botRight).v - (R -> topLeft).v + 1; 
end 
= mambo ence conconecundosccescscuccuunccccnuccundeccese oes... ee ee =) 
/* do_map: Function to map window local coordinates (x and y sa 
/* coordinates) to global screen coordinates which Gem VDI will 2) 
/* recognize. a) 
baal eawnnansdedn mannonunoneceaueunseneetecuncceseseeseen oe lo oe eee si 
State 
do_map(Cmap,X, Y) 
Map *Cmap; 
Int ae, ae © 
bare 
(*X) += (Cmap -> Xreal) - (Cmap -> Xorigin); 
(*Y) += (Cmap -> Yreal) - (Cmap -> Yorigin); 
end 
Le ewtweeseocesebeoceuewecenaceSeescoess cao e Se eee ee ca | 
/* do_rev_map: Function to map global screen coordinates to window local */ 
/* coordinates as defined by the input coordinate map (Cmap). us 
[Pacwcewessta son tet ent ddan nannndaeamian ent teetee= = ose oe */ 
State 
do_rev_map(Cmap,X,Y) 
Map *Cmap; 
Int Gd 
tae 
(*X) -= (Cmap -> Xreal) - (Cmap -> Xorigin); 
(*Y) -= (Cmap -> Yreal) - (Cmap -> Yorigin); 
end 
fe cm mommbwninenendéudmeedneccessccaecsnleSlec uses eee eee eee a | 
/* set_map: Function to set the mapping from window local coordinates i | 
/* to screen global coordinates. 4) 
/* wh emmnnbeedennccelu ecu eeed ee ee ee / 


State 
set_map(Cmap,Orig_x,Orig_y,Real_x,Real_y) 
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Map *Cmap; 
Int Orig_x,Orig_y,Real_x,Real_y; 


begin 

(Cmap -> Xorigin) = Orig_x; 

(Cmap -> Yorigin) = Ong_y; 

(Cmap -> Xreal) = Real_x; 

(Cmap -> Yreal) = Real_y; 
end 
/* ena AIS Sa SS RR ec se Da oe A srr oc * / 
/* get_next_rec: Function which returns a boolean TRUE if a window oH 
/* is available for allocation, FALSE otherwise. The index to the oh) 
hg allocated record is returned as the integer pointed to by RECNUM § */ 
hg a gee ye ea a ag cg | 
Bool 


get_next_rec(Recnum) 
Int *Recnum; 
begin 
Int ee 


while ((Available_win{T] == 0) && (I < MAXNUMWIN)) 
I++; 


while ((Alloc_win[{J] !=0) && JI < MAXNUMWIN)) 
J++; 


if I >= MAXNUMWIN) 
retum(FALSE); 

else 

begin 
Alloc_win{J] = Available_winf]]; 
(*Recnum) = Available_win{I]; 
Available_win{I] = 0; 
return(TRUE); 


State 
dalloc_win(Recnum) 
Int Recnum; 


begin 
Int LJ; 
if ((Recnum > 0) && (Recnum < 9)) 
begin 
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while ((Alloc_win[{J] != Recnum) && JJ < MAXNUMWIN)) 


J++; 


while ((Available_win != 0) && (I< MAXNUMWIN)) 


jee 


if (J < MAXNUMWIN) && (I < MAXNUMWIN)) 


begin 
Available_win{I] = Alloc_win[J]; 
Alloc_win[J] = 0; 

end 


/* whiterec: Paints the rectangle specified by the array of 4 integers 
/* pointed to by outarr white. Array must be in the form: [0]: 

/* x of top left point, [1]: y of top left point, [2]: x of bottom 

/* right point, [3]: y of bottom nght point. All points must be in 
/* global screen coordinates. 


State 


whiterec(outarr) 


begin 


end 


Int *outalr; 


Mode_id tempxfer; 
Pattern_id tempp; 
Color_id tempc; 


graf_mouse(HIDEMOUSE,MOUSEADDR); 
tempxfer = Winlist[ Active_win].winmode; 
tempp = Winlist{Active_win].winpat; 

tempc = Winlist[Active_win].wincol; 


set_xfer_mode(REPLACE); 
Set_pattern(SOLID); 
set_color(LT WHITE); 


vr_recfl(Device,outarr); 
set_xfer_mode(tempxfer); 
set_pattern(tempp); 


set_color(tempc); 
graf_mouse(SHOWMOUSE,MOUSEADDR); 
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/* polar_coord: Function which converts the coordinates of a rectangle *) 
/* input in the form of two opposing corners into a polar coordinate iF | 
/* like form returning the center of the rectangle and the x and y a 
/* radiuses. ri 
/* i a gr */ 

State 
polar_coord(R,x_ctr,y_ctr,x_rad,y_rad) 

Rect *K; 

Int PXacin Vac x oTad,” y_ Tad: 
begin 

Int gemx,gemy,gemw,gemh; 

get_gem_rect(R,&gemx,&gemy,&gemw,&gemh); 

(*x_ctr) = gemx + (gemw / 2); 

(*y_ctr) = gemy + (gemh / 2), 

(*x_rad) = gemw / 2; 

(*y_rad) = gemh / 2; 
end 
/* ee EEN oe Ua Sale od Nes hs Sc Ls ee Oe x] 
/* map_angle: Function which converts a GEM angle to a Mac angle oy 

2 UE eS nee ee */ 

State 
map_angle(angle) 

Int *angle; 
begin 

Int I: 

if (angle < 0) 

for(I = (“angle); I< 0; I += 3600); 
else 
I = (*angle); 

(*angle) = (900 - I + 3600) % 3600; 
end 
= one eee SSS oe a a ap +] 
/* translate_origin: Function which moves the origin of the global to */ 
/* local map of the specified window by the amount dX and dY. | 
oe ce */ 


State 
translate_origin(Id,dX,dY) 
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Int Caleb, aly 


begin 
Winlist{Id}].Coordmap.Xorigin += dX; 
Winlist[Id].Coordmap. Yorigin += dY; 
end 
1s eee eee eee eee wa ee ee ee ee * / 
is a en ene Sr ee eer ce ca * / 
State 
greenrec(outarr) 
Int *outalr; 
begin 
Mode_id tempxfer; 
Pattern_id tempp; 
Color_id tempc; 
graf_mouse(HIDEMOUSE,MOUSEADDR); 
tempxfer = Winlist[ Active_win].winmode; 
tempp = Winlist[Active_win].winpat; 
tempc = Winlist[Active_win].wincol; 
set_xfer_mode(REPLACE); 
set_pattern(SOLID); 
set_color(LTGREEN); 
vr_recfl(Device,outarr); 
set_xfer_mode(tempxfer); 
set_pattern(tempp); 
set_color(tempc); 
graf_mouse(SSHOWMOUSE,MOUSEADDR); 
end 
/* Sees ce Sooo cae a eo he oc eee * / 
Vi Bh el Vs ee oo Sk A ee So oy * / 
State 
bluerec(outarr) 
Int *outalr; 
begin 


Mode_id tempxfer; 
Pattern_id tempp; 
Color_id tempc; 
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graf_mouse(HIDEMOUSE,MOUSEADDR),; 
tempxfer = Winlist[ Active_win].winmode; 
tempp = Winlist[Active_win].winpat; 

tempc = Winlist[Active_win].wincol; 


set_xfer_mode(REPLACE); 
set_pattern(SOLID); 

set_color(LTBLUE); 

vr_recfl(Device,outarr); 
set_xfer_mode(tempxfer); 

Set_pattern(tempp); 

set_color(tempc); 
graf_mouse(SHOWMOUSE,MOUSEADDR); 


end 
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fe ASMENU.C if 
hee ei ee re met be bnbennadoeunduseueucceece coe eee * i 
/* oo ee er ls Se Beets ck oa ee On ee eee * / 
/* ee a ern oy AS en tr Eo * i 
State 
init_menu(filename,barId) 
char *filename; 
Menu_id barld; 


begin 
rsrc_load(ADDR(filename)); 
rsrc_gaddr(0,barld,&baraddr); 


menu_bar(baraddr, 1); 
end 
/* se gp a rm ee * / 
1 he ee PO ee em A et * i 
State 
item_enable(menunum,itemnum) 
int menunum,itemnum; 
begin 
menu_ienable(baraddr,itemnum, 1); 
end 
/* ee Mee ee eee One a nes * / 
a aa eee i aan yee ee ee er * / 
State 
item_disable(menunum,itemnum) 
int menunum,itemnum; 
begin 
menu_ienable(baraddr,itemnum,0); 
end 
[Pasa cs ose e ee wea es oe ee * / 
[Re ee eee ee */ 


State 
item_mark(menunum,itemnum,mark) 


int menunum,itemnum; 
Bool mark; 


begin 
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menu_icheck(baraddr,itemnum,mark); 


State 


menu_hilight(menunum,hilight) 


begin 


end 


int menunum; 
Bool _ hilight; 


if (hilight) 
begin 


if (mhilighted > 0) 
menu_tnormal(baraddr,mhilighted, TRUE); 


menu_tnormal(baraddr,menunum,FALSE); 
mhilighted = menunum; 
end 


else if (mhilighted > 0) 

begin 
menu_tnormal(baraddr,mhilighted, TRUE); 
mhilighted = 0; 

end 
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i ASBIND1.H sa 
Vs wim me mowieciandowendecoudee oo eee * / 
#define begin { 
#define end } 
typedef struct Point 
begin 

int v,h; 
end 
Point; 
typedef struct Rect 
begin 

Point topLeft; 

Point botRight; 
end 
Rect; 
typedef int Bool; 
#define Void eal 
#define State jae 
typedef int Int; 
typedef long Long; 
typedef char Char; 
typedef unsigned int U2L_uint; 
typedef int Pattern_id; 
typedef int Mode_id; 
typedef int Color_id; 
typedef int Window_id; 
typedef int Menu_id; 
#define W_NAME 0x0009 
#define W_CLOSE OX0002 
#define W_SIZE 0x0020 
#define W_HSCROLL OxOEOO 
#define W_VSCROLL OX01C0 
#define INVAL WIN -1 
#define DESK_WIN 0 
#define MAXNUMWIN 7 
#define MAXNUMREC 8 
#define SOLID l 
#define HEAVYHATCH 2 
#define HATCH 3 
#define LTHATCH 4 
#define EMPTY 5 
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#define LTWHITE 0 
#define LTBLACK 1 
#define LTRED Z 
#define LTGREEN 3 
#define LTBLUE 4 
#define LTCYAN 5 
#define LTYELLOW 6 
#define LTMAGENTA i 
#define DKWHITE 8 
#define DKBLACK 9 
#define DKRED 10 
#define DKGREEN 11 
#define DKBLUE 1 
#define DKCYAN 13 
#define DK YELLOW 14 
#define DKMAGENTA 15 
#define REPLACE 1 
#define TRANSPAR Zz 
#define XOR 3 
#define REVTRANS 4 
#include “portab.h" 
#define ASMAINQ GEMAIN(Q 
typedef struct Evtmsg 
begin 
int type; 
int winid; 
Rect — evrec; 
Point evpoint; 
int scrpart; 
int SCrposn; 
int scrmoved; 
char keystroke; 
int mod; 
int miitle; 
int mitem; 
end Evtmsg; 
extern Evtmsg Message; 
#define EVTTYPE Message.type 
#define EVTWINDOW Message. winid 
#define EVTRECT Message.evrec 
#define EVPOINT Message.evpoint 
#define EVTSCRPART Message.scrpart 
#define EVTSCRPOSN Message.scrposn 
#define EVTSCRMOVE Message.scrmoved 
#define EVTKEY Message.keystroke 
#define EVTMOD Message.mod 
#define EVTMTTILE Message.mutle 
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#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 


#define 
#define 
#define 
#define 


#define 
#define 
#define 


#define 
#define 


EVTMITEM 


REDRAW 
TOPPED 
CLOSEWIN 
SCROLLBAR 
MOUSEDOWN 
KEYBOARD 
MOUSEUP 
MENUHIT 


V_PAGEUP 
V_PAGEDOWN 
V_ROWUP 
V_ROWDOWN 
H_PAGEUP 
H_PAGEDOWN 
H_ROWUP 
H_ROWDOWN 
V_THUMB 
H_THUMB 


MINSCR 
MAXSCR 


NUL_CHR 
CARR_RET 
BACK_SP 
BLANK 


MOUSEADDR 
HIDEMOUSE 
SHOWMOUSE 


LOOKMDOWN 
LOOKMUP 


Message.mitem 


— © Oona NRWN RK © SANK WN © 


Ser 
XS S 
yes) 
SH 


0x20 


Ox0OL 
256 
257 


0x0001 
0x0000 
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